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FOREWORD 

The program documented in this report was prepared under Contract 
NAS8-20082, Appendix C, Schedule Order C-82. This work was done at the 
direction of the Technical Coordinator, James Mabry, of the Operational 
Analysis Branch (AERO-MX) of the Aero-Astrodynamics Laboratory, George C. 
Marshall Space Flight Center. This task was performed by R. A. Alford 
and W. T. Pease of the Orbital Analysis and Mission Planning organization 
of Northrop-Huntsville. The assistance and guidance of Mr. J. Moore of 

the Operations Analysis Branch of AAL contributed to the successful and 

/ 

timely completion of this task. 
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ABSTRACT 

This document is a complete user and programmer guide for the REPRI 
program. This program was developed to perform mission concept, subsystem 
capability, and experiment support compatibility studies for the Space Station. 

The program utilizes Monte Carlo techniques to randomly schedule events in 
discrete intervals. Resources, logistics, cost, and space station volume are 
considered in the program. 

The program may be used to: 

© Constrain available resources and/or space station volume and deter- 
mine how much of a given experiment program can be accomplished. 

© Determine the quantity of resources and/or space station volume is 
required to support a given experiment program. 

© Determine the sensitivity of the experiment program scheduling to 
availability of resources, space station volume, or to individual 
experiments . 

i 

The speed of the REPRI program allows large sample sets of feasible 
schedules to be generated and summarized. This allows statistically valid 
conclusions to be drawn from the data. 


iii 
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Section 1 

INTRODUCTION 

The Monte Carlo simulation computer program REPRI (Random Experiment Program 
with Resource Impact) was developed to analyze space station experiment require- 
ments; This program allows statistical methods to be applied to determine the 
interrelationship of scheduling with resource and logistics requirements. 

Some of the guidelines and capabilities incorporated in REPRI are as follows: 

© Space station missions can be analyzed using 20 to 120 equal time 
intervals. 

© No ephemeris-related information is considered. 

© The ability to summarize and constrain resource requirements in 
every interval is provided. 

© The ability to constrain each experiment to start in or after 
a given interval is provided. 

• All performances of a single experiment are scheduled as closely 
together as possible. 

© The ability to define an experiment as being mutually exclusive 
with up to three others is provided. A typical application of 
this provision is the consideration due to conflicting use of the 
same docking port. 

® The development cost of the experiment program including the module 
development and fabrication cost is summarized for each year. 

© The space station storage volume required in each interval is 
determined for each schedule. 

© The cumulative percent of the experiment performances completed 
is determined. 

& After all schedules are generated, the maximum and average values 
of each parameter are determined for each interval. 

© After all schedules are generated, the total number of times that 
each experiment was scheduled in each interval is determined. 

Each schedule that REPRI generates specifies the intervals in which each 
experiment will be performed and the total amount of resource and logistics 
requirements needed in each interval. The resource requirements are user de- 
fined parameters which can be constrained to a specified maximum in each interval, 
e.g. , manhours, average power, etc. The logistics parameters consist of the 
supply and experiment weights and volumes to and from orbit in each interval. 
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REPRI generates and summarizes random schedules. The summary consists of 
the maximum and mean values of the resource, logistics, and cost requirements. 
The random schedules are based upon the principle of scheduling the experiments 
in random order in randomly chosen intervals. 

REPRI can be applied to mission planning for the following purposes: 

9 To determine the sensitivity of scheduling to selected parameters 

® To determine mission and station characteristics required to support 
a particular experiment package 

@ To generate a large number of random schedules for statistical 
evaluation. 

Each subroutine of REPRI is described in Section II. The input and output 
are described in Section III and Section IV, respectively. An explanation of 
the probability theory to be applied to the data generated using REPRI is out- 
lined in Appendix A and a Fortran listing of REPRI is presented in Appendix B. 

A FLOWTRAN description of the REPRI program is included in Appendix C. 

The REPRI program has been used to determine: 

& Ttie sensitivity of space station experiment scheduling to changes in 
available power and men. 

® Impact of performing the artificial gravity experiment on the perfor- 
mance of the space station experiment package. 

® Average and maximum percentages of space station experiment perfor- 
mances which can probably be scheduled. Also, average and maximum 
experiment support cost curves for the period 1970-1986. 

These are a few examples of how the program can be used. Some of the study 
results obtained from the REPRI program have been documented in NASA TMX-64557 
entitled "Explanation of Random Experiment Scheduling and its Application to 
Space Station Analysis", by Mr. J. Moore of AERO-MX. 

The main point that should be recognized is that the REPRI program 
allows very large samples of feasible schedules to be generated. Large 
samples allow statistically valid trends to be established. 
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Section II 


PROGRAM DESCRIPTION 


2.1 GENERAL 

The organization of the REPRI program has been modularized for flexibility. 
The following block logic shows how the main program links the subprograms 
together. The order of calling and the functions are described in the block 
logic. The details of the subroutines are included in subsections 2.2 through 
2.10. Only major subroutines are shown in block logic form. Complete FLOWTRAN 
logic diagrams may be found in Appendix C. A listing of the program may be 
found in Appendix B. 
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MAIN PROGRAM 





PRINT THE TITLE HEADING OF SCHEDULE 
LLL IF INDIVIDUAL SCHEDULE 
PRINTOUT IS DESIRED 
(SUBROUTINE OUTPU) 


I 


DO 4 
K=1 ,N 


t 


DETERMINE IN WHICH INTERVALS THE K th 
EXPERIMENT IN THE RANDOM ARRAY WILL 
BE SCHEDULED (SUBROUTINE ZPACK). 


D 
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PRINT THE COST AND 
CUMULATIVE COST 
PER YEAR FOR 
SCHEDULE LLL 
(SUBROUTINE OUTPU). 


. 

r • 

ADD THE RESOURCE, LOGISTICS, STORAGE, AND 
PERCENT COMPLETION TO THE TOTAL REQUIREMENTS 
FOR ALL SCHEDULES SO THAT MEAN VALUES CAN BE 
CALCULATED AFTER ALL LL SCHEDULES HAVE BEEN 
GENERATED. (SUBROUTINE TRACK) 


r 

STORE THE VALUES OF RESOURCE REQUIREMENTS, 
LOGISTICS PARAMETERS, STORAGE VOLUME, 

COST, OR PERCENT COMPLETION WICH ARE IN- 
TERVAL MAXIMUM FOR ALL THE SCHEDULES 
THUS FAR GENERATED (SUBROUTINE TRACK). 





CALL SUBROUTINE TRACK 
TO PRINT SUMMARY 
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2.2 SUBROUTINE INPUT 

Subroutine INPUT reads in the data for each case and prints out this 
information in tabular form. A detailed discussion of the input is presented 
in Section III. 

2.3 SUBROUTINE ZPACK 

Each time subroutine ZPACK is called, one experiment is scheduled. If a 
forced start interval has not been specified, ZPACK will select a random inter- 
val in which it will attempt to schedule the experiment designated in the calling 
argument. The experiment will be scheduled in this interval if the following 
conditions are met: 

® There is a sufficient amount of the four constrained resources 
available in the interval to perform the experiment 

® There is sufficient volume aboard the space station to store the 
experiment volume plus its supply volume in the interval 

• No experiment which is mutually exclusive with the one being 
scheduled has already been scheduled in the interval 

• The interval number is equal to or greater than thje minimum ^ tart 

interval assigned to that experiment., /■' 

If these are not met, additional intervals will be randomly selected 
either until the conditions are met or until all intervals have been checked. 

If additional performances are required, ZPACK will attempt to schedule them 
subject to the above conditions in the intervals immediately following the 
random interval. If all the required performances cannot be scheduled in the 
following intervals, ZPACK will attempt to schedule those remaining in the 
intervals preceding the random interval. 

When scheduling has been completed for the designated experiment, its 
resource requirements (e.g., manhours, bit rate, power, kilowatt hours, etc.), 
supply weight and volume, return weight and volume, and space station storage 
volume requirements are summed for the intervals in which it was scheduled. 

The ITOTL array is zeroed at the start of each schedule and contains the total 
requirements of the above parameters after all the experiments have been 
scheduled. One of the four resource requirements has 15 subcategories (e.g., 
skill types are subcategories of manhours) which are also summed in the ITOTL 
array. 
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The experiment weight and volume to orbit in the i*-* 1 interval is determined 
by summing the weights and volumes of all the experiments which are scheduled 
for the first time in the i^ interval. 

The experiment weight and volume returned from orbit in the i*-^ 1 interval 
is determined by summing the weights and volumes of all the experiments which 
are scheduled for the last time in the i^ interval. 

The space station storage volume requirements in the i 1 "' 1 interval are 
determined by summing the supply volumes of all the experiments scheduled in 
that interval plus the experiment volume of those experiments for which the 
i*"* 1 interval falls between the first and last intervals in which they were 
scheduled. 
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BLOCK LOGIC FOR SUBROUTINE ZPACK 
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2.4 SUBROUTINE COST 

Subroutine COST calculates the yearly cost of performing each schedule 
based on a 10-year experiment program. Funding is assumed to begin seven years prior to 
the start of the program. The development cost of each experiment is input 
for eight years prior to its first scheduled performance. The cost of de- 
veloping the free-flying and attached modules is input for the five years 
prior to their respective first uses. 

Subroutine COST has three entry points determined from the value of the 
calling argument parameter IFLAG. If IFLAG equals zero, the development costs 
of each experiment and the modules are read from card input. If IFLAG is 
negative, the cost of developing the experiment designated by the calling 
argument parameter NEXP is added to the XOCST array for the eight years 
prior to its first scheduled performance. At the completion of each schedule, 
subroutine COST is called with IFLAG positive. The development cost of both 
module types are summed in the XOCST array for the five years prior to their 
respective first uses. The cumulative cost is then calculated and the yearly 
cost and the cumulative cost are printed. 


{ 
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BLOCK LOGIC FOR SUBROUTINE COST 
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2.5 SUBROUTINE RANDXX 

Subroutine RANDXX generates random numbers that are uniformly distributed 
between zero and one. An input integer is forced to overflow the computers 
integer capacity by multiplication; this eliminates the most significant figures 
of the product. A real number between zero and one is then obtained by dividing 
this integer by the largest integer the computer can represent. 

2.6 SUBROUTINE ORDER 

Subroutine ORDER will randomly order an array of n integers by calling 
subroutine RANDXX n times. 

2.7 SUBROUTINE ENCODE 

Subroutine ENCODE will store the IOUT array in the ICODE array under the 
proper experiment number. Ten integers are packed into one integer word (e.g., 
1,0, 0,1, 1,0, 0,1,1, and 0 becomes 1001100110). 

2.8 FUNCTION ICON 

The function subprogram ICON is called with the number of the experiment 
being scheduled (NEXP) and the interval number (IN) in which scheduling is 
being considered. 

/ 

/ 

/ • 

The purpose of the function is to determine if a conflict 7 exists with 
experiments which have previously been scheduled in the interval. If a con- 
flict with another experiment exists, the value of ICON is set equal to 1. 

If no conflict exists, then ICON becomes 0. If experiment number 37 conflicts 
with the experiment during the interval, then ICON is set equal to 2. The 
ICOD(K,37) array is input as the scheduling proposed for the artificial-gravity 
timeline . 

The array IFLCK contains the experiment numbers which conflict with the 
experiment being scheduled (NEXP) . Previous scheduling is packed into ICODE 
under the appropriate experiment numbers (see subroutine ENCODE) . 

The check for conflicts is made by testing for the presence of a (1) in 
the digit of the ICODE array which represents the N t ^ 1 interval for each exper- 
ment which might conflict. 
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2.9 SUBROUTINE TRACK 

Subroutine TRACK tests the values of each parameter in each interval after 
the completion of each schedule in order to retain their maximum values. A 
running total of each parameter is also kept for each interval in order to cal- 
culate their mean values after all schedules have been generated. The number 
of times that each experiment has been scheduled in each interval is summed in 
the IIOUT array. Subroutine TRACK also prints the IIOUT array and the maximum 
and mean values of each parameter after a specified number of schedules have 
been generated. 
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BLOCK LOGIC FOR SUBROUTINE TRACK 
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PRINT THE FREQUENCY WHICH 
EACH EXPERIMENT HAS BEEN 
SCHEDULED IN EACH IN- 
TERVAL. 


CALCULATE THE AVERAGE RESOURCE 
REQUIREMENTS, LOGISTICS PARAMETERS, 
PERCENT COMPLETION, AND COST FROM 
THE IITOL ARRAY. 


PRINT THE AVERAGE 
REQUIREMENTS. 


PRINT THE MAXIMUM 
REQUIREMENTS. 


REINITIALIZE THE IITOL 
ARRAYS. 


RETURN' 
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2.10 SUBROUTINE OUTPU 

This subroutine prints the first ISEN2 individual schedules. ISEN2 is 
input by the user. The printed output consists of the following: 

• The intervals in which each experiment has been scheduled 

• The amount of each of the four constrainted resources which was used 
in each interval 

a The amount of the subcatagories of the fourth constrained resource 
which was used in each interval 

9 The experiment weight and volume to and from orbit required in each 
interval 

• The logistics weight and volume to and from orbit required in each 
interval 

0 The amount of space station storage volume required in each interval 

9 The percentage of the experiment program thus far completed in each 
interval. 

A detailed description and sample of output appears in subsection 4.3. 
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Section III 

INPUT DESCRIPTION 

3.1 GENERAL 

The data input of REPRI is divided into five major categories of cards. 
These are: 

• Run description cards 

• Case description card 

• Experiment description cards 

• Resource description cards 

• Cost description cards. 


An input stream for a run with two cases is shown below. These categories will 
be discussed in detail in subsections 3.2 through 3.6. 
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3.2 RUN DESCRIPTION CARDS 

The following cards are input once per run: 


CARD 


COLUMN 

1-3 


VARIABLE 


ISEN2 


4-6 


1-50 


ICASE 


(LAVG(I) ,1=1,10) 


FORMAT DESCRIPTION 

13 The number of individual 

schedules to be printed. 
Schedule one through 
schedule ISEN2 will be 
printed for each case. 

13 The number of cases to be 

run. 

1015 The number of schedules 

after which an intermediate 
summary is desired. Up to 
10 can be requested. The 
numbers must be input in 
ascending order. A final 
summary will always be 
printed regardless of the 
values in LAVG. 


3.3 CASE DESCRIPTION CARD 

This card is the first card required for each case. 


CARD 

COLUMN 

VARIABLE 

FORMAT 

DESCRIPTION 

1 

1-5 

N 

15 

Number of experiments 
(N<36) 


6-10 

IN 

15 

Number of intervals (IN_<120) 


11-15 

LL 

15 

Number of schedules to be 
generated 


16-20 

NSKL 

15 

Number of subcatagories of 
the fourth resource con- 
sidered (NSKL<15) 


21-30 

IRAND 

110 

A six-digit odd integer 
which is used to initialize 
the random number generator. 
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3.4 EXPERIMENT DESCRIPTION CARDS 


The following two cards are input once for each experiment. Hence, 2*N 


cards are required 

• 



CARD COLUMN 

VARIABLE 

FORMAT 

DESCRIPTION 

1 1-5 

MEXP(I) 

15 

The four digit integer WXXX 
where W is the mode of 
accomodation; W=0 for integral 
modules, W=1 for attached 
modules, or W=2 for free- 
flying modules. XXX is the 
experiment identification 
number of the Ith experiment. 

6-10 

IDATE(I) 

15 

The interval in which the I 1 - 11 
experiment must start. If 
IDATE(I)=0, the experiment 
can start in any interval 
equal to or greater than 
JDATE(I) . 

11-15 

JDATE(I) 

15 

The earliest interval in 
which the Ith experiment 
may start. If JDATE(I)=0, 

the experiment can start 
in any interval. 

16-20 

IREPT(I) 

15 

The number of required 
performances of the Ith 
experiment. 

21-25 

IDATA(I.l) 

15 

The amount of the first re- 
source required to perform the 
I 1 -^ experiment during one 
interval, e.g., average watts. 

26-30 

IDATA(1, 2) 

15 

The amount of the second re- 
source required to perform the 
ith experiment during one 
interval, e.g., kilowatts. 

31-35 

IDATA(I,3) 

15 

The amount of the third re- 
source required to perform 
the I c experiment during 
one interval, e.g., bit rate. 

36-40 

IDATA(I , 20) 

15 

The supply weight required 


in one interval to per- 
form the Ith experiment. 
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CARD COLUMN 

VARIABLE 

FORMAT 

DESCRIPTION 

41-45 

IDATA(I, 21) 

15 

The supply volume required 
in on^interval to perform 
the I experiment. 

46-50 

IDATA(I, 22) 

15 

The return weight required 
in one interval to perform 
the Ith experiment. 

51-55 

IDATA(I, 23) 

15 

The return volume required 
in one interval to perform 
the Ith experiment. 

56-60 

IDATA(I , 24) 

15 

til 

The weight of the I experi- 

ment equipment . 

61-65 

IDATA(I, 25) 

15 

til 

The volume of the I experi- 

ment equipment. 

2 1-5 

NREQD(I.l) 

15 

The number of different 
subcategories of the fourth 
resource that the Ith 
experiment requires. 
NREQD(I,1)£5. 

6-10 

16-20 

26-30 

36-40 

46-50 

NREQD(I.n) 

15 

Subcategory number required 
by the ith experiment 
(n=2 ,4,6 ,8,10) . NREQD(I.n) <15 
Only five subcategories may 
be used for each experiment. 

11-15 

21-25 

31-35 

41-45 

51-55 

NREQD(I,n+l) 

15 

The amount of resource 
subcategory NREQD(I,n) 
required to perform the 
I^-h experiment. 

56-60 

61-65 

66-70 

JCON (1,1) 
JC0N(I, 2) 
JCON (I, 3) 

15 

The identification number 
(MEXP(n)) of the n c h experi- 
ment that is mutually exclu- 


sive with the I t ^ 1 experiment. 
Up to three conflicts can be 
specified for each experi- 


ment. If conflict with arti- 
ficial-gravity experiment is 
desired, a 37 is input in 
JCON (I , 3) . 
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3.5 RESOURCE DESCRIPTION CARDS 

The following cards are input once per case: 


CARD 

COLUMN 

VARIABLE 

FORMAT 

DESCRIPTION 

1 

CO 

1 

rH 

ANAME(J) ,BNAME(J) 

2A4 

Eight alphameric figures 
describing the resource 

considered . 

2 

1-80 

ICTRT(I,J) 

1018 

ttl 

The amount of the J resource 

which is available in the I 1 -* 1 
interval. The values are input 
,.in 10 intervals per card, 1=1, 
IN. 


3-8 Repeat the preceding two cards for J=l,4: 


9-10 1-60 IC0DE(I, 37) ,1=1,12 6110 


NOTE: The 60 digits on 

each card correspond 
to 60 intervals. 


An array specifying the inter- 
vals that the experiments for 
which JC0N(n,3)=37 cannot be 
scheduled. One digit represents 
one interval. There are ten 
digits in a word. An integer 
array of up to 12 words are 
input with six words per card. 

A one prevents scheduling, and 
a zero permits scheduling. This 
option can be used to model the 
artificial gravity experiment. 
Ones are input for the intervals 
in which the artificial gravity 
experiment will be performed, 
and JCON(n,3)=37 for the experi- 
ments which cannot be performed 
during the artificial gravity 
experimentation. Two cards must 
be input even if less than 60 
intervals are used. 


11-12 1-8,9-16, ANAME(J) , 

etc. BNAME(J), 

J=1,NSKL 


13 1-8 ANAME(26) , 

BNAME(26) 


20A4 NSKL sets of eight figures of 
alphameric description of the 
subcategories of the fourth 
resource. NSKL 1 15 . If NSKL 
£.10, card 12 is not needed. 

2A4 Eight figures of alphameric 

description of the space station 
storage volume. 
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CARD 

COLUMN 

• VARIABLE 

FORMAT 

DESCRIPTION 

14- 

1-8,9-16, 

etc. 

ICTRT(I , 5) 

1018 

The amount of space station 
storage volume available in the 
ith interval. The values are 
input in ten intervals per card 
(1=1, IN). The number of cards 
required is ((IN+9)/10) truncated 


3.6 COST DISTRIBUTION CARDS 


CARD COLUMN 

VARIABLE 

FORMAT 

DESCRIPTION 

1 2-10 

IYR 

19 

An integer specifying the 
number of intervals in one 




year. 

2- (n+1) 1-8,9-16, 

etc. 

XCPST (I, J) 

10F8.1 

The cost of developing the 
Jth experiment in the (9-1) th 


year prior to its first 
scheduled performance, 
1=1,8. This card is input 
once for each experiment. 
Cost cards must be in the 
same order as experiment 
cards . 


(n+2) 

1-8,9-16, 

etc. 

FFD(I) 

10F8.1 

The cost of developing the 
free-flying modules in the 
(6-1) th year prior to their 
first use, 1=1,5. 

n+3 

1-8,9-16, 

etc. 

AMD(I) 

10F8.1 

The cost of developing the 
attached modules in the 
(6-1) th year prior to their 
first use, 1=1,5. 
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Section IV 

OUTPUT DESCRIPTION 

4.1 GENERAL 

The output falls in three categories. These are input, individual schedules, 
and a summary of all the scheduling. Each of these will be described in the 
following. A typical example of each piece of output has been included in this 
section. 

4.2 OUTPUT DESCRIBING INPUT 

The first two lines of output that appear (see next page) are the card 
images of the two run description cards. The information printed is described 
in Section 3.1. The cards are printed card 2 and then card 1. 

The logistics requirements table (see next page) is printed next. This 
includes all the logistics information input for each experiment. Weight and 
volume are non-dimensional in the program. The weights and volumes shown in 
the typical output are pounds and cubic feet. The mode of accommodation (free 
flyer (FF) , attached module (AM), and integral module (I)) is also indicated 
in this table for reference purposes. 

The correspondence between output and input variables is shown below for 
T th 

the I experiment : 

OUTPUT COLUMN 
EXP WT 
EXP VOL 

i 

SUPPLY WT 
SUPPLY VOL 
RETURN WT 
RETURN VOL ^ 


INPUT VARIABLE 
IDATA (1,24) 
IDATA (1,25) 
IDATA (1,20) 
IDATA (1,21) 
IDATA (1,22) 
IDATA (1,23) 
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A table of scheduling requirements is output next. This includes all 
scheduling related parameters which were input for each experiment. The table 
shown on the next page is the typical output from a 20 interval case. The 
correspondence between the output and the input variables is shown below: 


OUTPUT COLUMN 

INPUT VARIABLE 

FORCED START INTERVAL 

IDATE(I) 

MINIMUM START INTERVAL 

JDATE(I) 

NUMBER OF PERFORMANCES 

IREPT(I) 

CONFLICTS 1 

JC0N(I ,1) 

2 

JC0N(I ,2) 

3 

JC0N(I,3) 


The output below the table shows the alphameric titles and constrained 
values input for each resource. These are explained in subsection 3.10 under 
cards 1-8. The constrained values for each interval are printed 10 intervals 
to the row with interval 1-10 from left to right on the first row and subsequent 
intervals following. 

The artificial-gravity experiment timeline which is input is shown under 
the title "ARTIFICIAL G" in the output. Time is the card image of cards 9 and 
10 of the resource description cards described in subsection 3.5. In the 
attached example there was no artificial gravity experiment scheduled. Blanks 
indicate the same meaning as a zero. If artificial gravity had been scheduled 
in the fifth interval, the first word would have been "bbbb 100000" instead of 
"bbbbbbbbbO" . 
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The resource requirements input for each experiment are tabularized next (shown 
on next page) . The correspondence between the output and the input variables 


below: 


OUTPUT COLUMN 

INPUT VARIABLE 

A WATTS 

IDATA(I ,1) 

KW-HRS 

IDATA(I ,2) 

BIT-RT 

IDATA(I,3) 

MAN HRS 

IDATA(I ,4) 


The program is non-dimensional in regard to resources. The dimension of the 
variables shown in the typical output are watts, kilowatt hours, bits /day x 10 + ^, 
and manhours/day . Manhours/day is calculated internally as the sum of the skill 
hours /day. 

■i ' i 
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The tables on the following pages show the skill types and manhours of 
each required for each experiment. It should be noted that the skill names 
may be changed from "SKILL 1", "SKILL 2", etc., simply by changing the cards 
starting at card 11 in subsection 3.5. The correspondence between the output 
and the input variables is explained in card 2 of subsection 3.4. 
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The next information printed (shown on next page) is headed by a single 
number which corresponds to IYR described in subsection 3.6. The subsequent 
lines of print give the FPE number and the associated cost for each year of 
development for up to eight years. Note that if an experiment required only 
five years of development, then the first three years are zero. The two lines 
of print below the experiment costs are the development cost of the free flying 
and attached modules respectively for a five year development. This is dis- 
cussed in subsection 3.6. 
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4.3 INDIVIDUAL SCHEDULE OUTPUT 

A typical schedule is shown on the next three pages. The experiments 
(FPE's) are shown from top to bottom in the order in which they were scheduled. 
The "1" or "0" in the schedule matrix indicates scheduled or not schedule re- 
spectively. The performances desired and actually scheduled for each experiment 
are shown in the columns on the right side along with the mode of accommodation. 


The items shown on the summary of resources are 


A WATTS 
KW HRS 
BIT RT 
MAN HRS 
SKILL 1, etc 
S WT UP 
S VOL UP 
RET WT 
RET VOL 
E WT UP 
E VOL UP 
SS VOL 
PC COMPL 
COST PER YEAR 


average watts summed over all FPE's active (watts) 

kilowatt hours required (kilowatt hours) 

bits per day generated by FPE's (BPD x 10 + ^) 

manhours required during interval (manhours) 

skill hours required during each interval 

supply weight required to orbit during interval (pounds) 

supply volume required to orbit during interval (cubic feet) 

weight to be returned from orbit (pounds) 

volume to be returned from orbit (cubic feet) 

experiment weight to be launched to orbit (pounds) 

experiment volume to be launched to orbit (cubic feet) 

space station volume required (cubic feet) 

cumulative percent of performance completed (%) 

year, cost per year, and cumulative cost from top to 
bottom. (Cost in $ x 10^.) The units of cost on 
output are the units of cost used to input divided 
by 103. 
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4.4 OUTPUT SUMMARIZING SCHEDULE FOR ENTIRE CASE 

A sample of the case summary printed for all scheduling is shown on the 
next four pages. The number of times each experiment was scheduled in each 
interval is shown in the frequency distribution of scheduling. The average 
number of performances scheduled is shown on the right . 

The average and maximum values utilized in each interval for the case run 
are summarized in a format similar to that for the individual schedule. 
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Appendix A 

STATISTICAL BACKGROUND FOR REPRI 

REPRI was designed for Phase B compatibility analysis of Space Station 
mission concepts, sub-system capabilities, logistics support, and experiment 
packages. Since no one schedule could suffice to establish trends or sensitiv- 
ities for the entire ten year program, REPRI was designed to generate a large 
sampling of feasible schedules. In order to avoid biasing of the schedules, 
random scheduling was utilized. Only truly random feasible schedules are 
statistically valid for identifying program trends, since any deterministic 
scheduling algorithm must schedule based on some reasoning which may induce bias 

Random scheduling as applied is simply a Monte Carlo simulation of the 
scheduling with all experiments having equal probabilities of being scheduled 
in any interval. The flexibility with which the Monte Carlo technique allows 
new parameters to be added makes it highly desirable. Many analysis tech- 
niques are modeled completely on the parameters to be analyzed. A possible 
disadvantage of the Monte Carlo technique might have been the amount of time 
required to generate the large samples necessary to gain acceptable confidence 
levels. This problem has been avoided by careful programming. 

Briefly, the Monte Carlo technique as applied in the REPRI consists of: 

• Randomly generating the order in which the events are to be scheduled. 

o Randomly selecting the starting time of an event from among the set of 
all possible starting times; i.e., from among the candidates. 

When a complete schedule has been generated, the values of the selected 
parameters are computed and stored. The program automatically repeats the 
scheduling process until the desired number of schedules are generated. 

Once all the desired schedules and associated values of each parameter 
are generated, the results can be analyzed to determine the degree to which 
given parameters are dependent upon the schedule. Information concerning 
the maximum and average ranges of all parameters being considered is also 
obtained. The probability and confidence level that each parameter will lie 
within the range determined for it is a function only of the number of schedules 
used to determine the range. 
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The rest of this section will serve to demonstrate the probability theory 
used to determine the probabilities and confidence levels to be applied to the 
data generated using the REPRI program. 

Let S^, S 2 •••, denote the schedules in the set of all possible randomly 
generated schedules, and let ff denote the i c ^ payoff function (i.e., parameter) 
defined on all possible schedules. The sequence of values of f^, given by f^ 
(Sj-). > f^ (S 2 ) •••» can be considered as a sequence of independent random vari- 
ables with an unknown distribution, F. Then (x) is the probability that a 
randomly generated schedule will have an f^ value smaller than x, i.e., (see 
Figure A-l). 

F.(x) = P r [f. (S) < x] = j y ± (x) dx 

o 

where S is an arbitrary random schedule. 

Let £p be the p-percentile of the unknown distribution F^, i.e., p is the 
number such that 

S 

F. (E ) - P^ [f, (S) < €j = p - / y. (x) dx, 0 < p < 1 (A-l) 

x p r x p D x 

Suppose that the outcome of the f^ value greater than or equal to 
from a given schedule be designated as a success and the outcome of an f^ value 
less than £ p be designated as a failure. Hence, by equation (A-l), the 
probability of a failure for any random schedule is given by p and conversely 
the probability of a success is given by (1-p). 


If a finite number of schedules, N, are generated, the probability that 
at least one of these N schedules will have an f^ value greater than or equal 
to E , p may be expressed as the probability of at least one success in N 
independent trials, and this probability may be denoted by 


P^ [at least one f^S^) £ ]> k = 1, 2 N 


By Bernoulli's Theorem , the probability of exactly j failures and (n-j ) 

! 

successes in n independent trials is given by the expression 

T r-'T i ' <£j)T - pJ (1 - p)n ~ J 


1. Coolidge , J. L. An Introduction to Mathematical Probability 3 Dover 
Publications } Inc. 3 New lork 3 N . Y, 3 1962 , p, 32. 
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Figure A-l . DISTRIBUTION CURVE FOR THE SCHEDULE PARAMETER f. 
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Since an outcome of at least one success in n trials includes all possible 
outcomes except that of exactly n failures, the probability of at least one 
success is given by. 

1 - [P^(n failures in n trials)] 

Thus, the probability of at least one f^ value greater than or equal to 
in the N random schedules generated may be experssed as 


[at least one f^ (S^) >_ £ ] = 1 - [P^. (all N f^ (S^) < £)]» 
k = 1, 2, , N 


(A-3) 


Replacing n by N, and j by N in expression (A-2) , we have 

~ r N! N ,, ,N-N N 

P [all N f . (S, ) < £ ] = p (1-p) = p 

r i k' p J N ! (N-N) r ■ P F 

k = 1, 2, ..., N / 


N 

and substituting p in equation (A-3) we have 


N 


P [at least one f (S. ) < ] = 1-p , k= 1, 2, ..., 

r i K. — p 


(A-4) 


The value of p is sometimes called the confidence level. 


As an example of the application of equation (A-4) , suppose it is desired 
to know the number, N, of schedules required to have the probability be 0.95 
that the maximum (minimum) value for the f^ parameter in the sample , ...» 

of N schedules is larger (smaller) than 99 percent of all possible values. 
Then the preceding equation becomes 


0.95 = 1 - (0. 99) N 


In general, the exact solution of this equation will not yield an integer 
value for N, hence, the equation is solved for the samllest value for N for 
which the probability is at least 0.95, i.e., the smallest integer N is 
sought for which the inequality given by 
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• • I . 

0.95 £ 1 - (0. 99) N 
holds. The value of N is found to be N = 296. 

Figure A-2 is a graph of as a function of N for value of p of 0.90, 
0.95, and 0.99. Figure A-3 is a plot of p as a function of N for values of 
P of 0.90, 0.95, and 0.99. Using these graphs, the number of schedules which 
must be generated to achieve the desired p and P^ values can be readily 
obtained. 
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Figure A-2. PROBABILITY AS A FUNCTION OF THE NUMBER OF SCHEDULES 
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FIGURE A-3. CONFIDENCE LEVEL AS A FUNCTION OF NUMBER OF SCHEDULES 
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FORTRAN SOURCE LISTING OF REPRI PROGRAM 
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?.JOR MASA/KIRK- 4 1 0 1 6 C » C 0 » 1 ? • 

$ I n Jon -'af,filfs»go,nodec< 

<r I n FTC A. I f - 1 , 

OIVF.Nr,IO- I DATA (36 *25) ♦ ITOTL ( 120*27) » I CTRT { 1 20* S ) * IOU.T ( 1 *2 O ) ♦ "AIM 1 

* • .PVATC-: ( ?6 ) » IREPTX 36 ) ♦ IDATF ( 36 ) » ANA M-I { 27 ) * F* M A ' F-; ( 27 ) » -AIM 2 

* " ' FXP ( 36 ) ♦ I ? ’0D ( 3 ) * XOCST (18) ♦ XCOST (8*36) ♦ I ! 1 FT R F ( 36 ) , . MAIN 3 

* JCON ( 36*3) * XXC.ST ( 18) * I I OUT ( 120*36) * NRFOD ( 36 , 1 1 ) * MAIN b 

* I E X P ( 3 6 ) * L A V G ( 1 0 ) .'A I •, 3 

C 0 X 0 I *•> A •» : v » I M * I D AT A * I TOIL * I C TRT • I OUT , I P EPT » I D A T = , f ' ’ ' , ; / A I N 6 

* JPATF EXP » XCO'ST ♦ I PERF * IRAN . XOCST « JCON * ! SFH? * ZCOST , ''AP' 7 

* Aocp ,\!S* L * LL » XXCST * I I N » I I OUT , NRc QO » I AM » ! FM , 1 CODE (12,37) ■' A I N « 

r 0 • ’ “ '0 V / A L ° H A / A N A v E ♦ P m A M E » ! MO D - ,VA I ’\! 9 


C 


c 

c 

c 

c 

c 

c 


C. 


c 


-•AT A - 10 

°-:A ~ ( A , 1) JSFN2.ICASE ,v- A I ■ -i 11 

•-•••' I T c ( 4 , i ) I SEN2 ♦ I CASE 


1 

r- n:-J VA.T ( 2 ! 3 ) 



' -MA I 0 

12 


PRATT 3, 2) (‘LAVG ( I ) , 1 = 1,10) 



' '■•'A I -i 

13 


••’EITFIA*.?) (LAVG ( I), 1 = 1, 10) 





•p 

p 0 ° !>* A T ( 101 6 ) 



"'A I 

14 





MAIN 

15 


I SF' ; )5 - vu v ’°.FR OF SCHEDULES TO BE D P I N T E P 



'■■•AIN 

16 


( S C u c PULE ONE THROUGH SCHEDULE I SEN?) 



y ai 

17 


1C ASF - on. OF CASES (COMPLETE DATA ^ACkS) 



••'A I N 

I« 


LAVf, - \ | U , ' 1P -ER OF SCHEDULES AFTER WHICH A SU"-v/ 

\ P Y 

IS DESIRED. 

'■■'A I N 

19 


I, M D UT UP TO TEN VALUES IN ASCENDING ORDER. A 

FI' 

ML 

A I N 

2 0 


S'J VV ’ARY IS PRINTED REGARDLESS OF THE VALUES I * 

•1 LAVG. 

,v" A I N 

2 1 





MAIM 

? *"> 

L. 





MAM 

2 3 


'":= •■HJviPER OF RESOURCES FOR WHICH UTILIZATION 

IS 

COMPUTED. 



•} 

J 

w=?7 



■ AIN 

2 4 


I PL A G = 0 



MAIM 

2 5 


i_ X X X = 1 



MAIN 

2 6 


CALL INPUT 



MAIN 

■; p 


HR ITEM 6, 4) 






CALL COST (L.LL, IFLAG, IDUM) 



MA I ■ ■.. 



CALL TRACK' ( 1 ,LLL ) 



MAIN 

3 3 


•*'R I TF ( 6* A) 



MA I K 

31 

LL 

FORMAT (1 hi) 



:'■■■ A I M 

o P 





MA I N 

S> 





MAI N 

A 

5 

•no 14 L L L = 1 » L L 



MAIN 

3 3 


nO 6 J = 1 ,18 



■ A i 

'A 

.>■ .j 1 

6 

XOCST (J)=G. 



MA I M 

3 7 


no 16 1=1,12 






DO 16 J= 1 »■; 





.6 

I CODE ( I ,J)=0 






7 C 0 S T = 0 • 0 



■ ■AIN 

3 h 


I AM = 1 0 00 



• ■ . .*■' I -''i 

3 9 


I FV = 1 non 



a i 

. ) 


DO P 1 = 1, IN 



MAIN 

u l 


DO 7 J=1, V V 



MA I N 

ZA 2 

7 

I TOTL ( I , J) =0 



MAIN 

4 3 

8 

I OUT ( I ) = 0 



MAIN 

4 4 


CALL ORDFR-j m, I EXP ) 



MA I Mi 

4 3 
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CALL OUTPU ( L.L L ♦ 0 , I DUM ) 

MA I W 

4 y 



MAIN 

2 0 


EXPERIMENT SCHEDULING LOOP 

‘ : A I i'j 

b 1 


DO 1 0 K = 1 , Nl . 

MAIN 

52 


CALL /PACK ( I EXP (K ) ) 

MA I iM 

5.2 


CALL COST(LLL*-l , IEXP(K) ) 

MAIM 

54 


CALL OUTPU ( LLL , + l , IEXP ( X ) ) 1 

MAIN 

55 

10 

CALL ENCODE ( IEXP (K ) * I CODE , I OUT* IN ) 

MA I N 

56 



M A I N 

5 7 


00 11 1=2 ♦ IN 

W A I N 

5 8 

11 

ITOTLt I *2.7) = I T 0 T L ( I , 2 7 ) •+• I TOT L < 1-1.27) 

M: A I M 

5 V 


DO 17. 1 = 1 .IN ' 

MA I i 

6 J 

12 

I TOTL ( I ♦ 7 7 ) = I F I X ( FLOAT ( I TOTL ( I ,27 ) > # 1 00. /APER+0 . 5 ) 

.MAIN 

61 


CALL OIJTPU (LLL, +2, IDUM) 

V.A I 

62 


CALL C OS T ( L L L , 1 , I DUM ) 

MAI !-. 

6 2 


CALL TRACK ( 2 » LL L ) 

MAIM 

6 4 


I F ( L LL-LAVG ( L XXX ) ) 1 4 , 1 3 , 1 4 

MA I .N 

6 5 

13 

CALL TRACK (3, LLL) 

.-.A I N 

6 6 


L X X X = L X X X + . 1 

; IAIN 

. 6 7 

14 

CO NT I NUF 

MAIN ' 

' 68 



MA I N 

69 



MA I M 

70 


CALL TRACK ( 3 »LL ) 

i- A I N 

7 2 


ICASE=IC ASE-1 

.MA I 

72 


V.'R I TF ( 6* 4 ) 

'. >iAIN 

74 


IF ( I CASE ) 15 ,15,3 

Mi A I N 

7 5 

IS 

STOP 

HA I N 

76 


END 

MAIN 

77 


5 IRFTC BLCK DECK.' • 

BLOCK DATA 

DIMENSION I MOD ( 3 ) ♦ AN A ME ( 2 7 ) ♦ BN A ME (27) 

C 0 MO M /ALP H A / A N A M E » B M A M E * I iMO D 
DATA I^OD/PM I » 7 H A M * 2 H F F / 

DATA ANA VF { 20 ) ♦ BNAME ( 20 ) / 4 HS WT. 4 H UP / 

DATA A NAME ( 21 ) » BNAME ( 21 ) / 4 HS V 0 . 4 HL UP/ 

DATA ANAMEt 2 ? ) *RNAME( 22 ) / 4 HRET » 4 HWT / 

DATA A NAME ( 23 ) »BNAME( 23 ) / 4 HRET » 4 HVOL / 

DATA ANAMEt 24 ) * BNAME ( 24 ) / 4 HE WT* 4 M UP / 

DATA AYAM E ( 25 ) * BNAME ( 25 ) / 4 HE V 0 , 4 HL UP/ 

DATA A'TA^’E ( 27 ) * BNAME ( 27 ) / 4 HPC C» 4 H 0 MPL/ 

C A, NAME ( 20 ) = SUPPLY WEIGHT TO BE CARRIED UP 

C AN AMP ( 2 1 ) = SUPPLY VOLUME TO BE CARRIED UP 

C ANAf-'E ( ?2 ) = LOGISTIC WEIGHT TO BE CARRIED DOWN (INCLUDES 


C 

c 

c 


c 


ANA ME ( 73 ) = 

A .NAME ( 24 ) = 
AN A ME ( 25 ) = 
AN A. ME (27) = 
I MOD = FPE 

I MOD ( 1 ) = I 


EXPERIMENTS AND SUPPLIES) 

LOGISTIC VOLUME TO BE CARRIED DOWN (INCLUDES 
EXPERIMENTS AND SUPPLIES) 

EXPERIMENT WEIGHT TO BE .CARRIED UP 
EXPERIMENT VOLUME TO BE CARRIED UP 
PERCENT OF EXPERIMENTS THAT WERE SCHEDULED 
ACCOMMODATION 


BO F h 

BOTH 


C I MOD ( 2 ) = AM 

C I “CD ( 3 ) = FF 

F D 


B-3 
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SIF’FTC OTPT DECK. 

SUBROUTINE OUTPU 


( I SCHD * JUMP * iNEXP ) 


* 

* 

•» 


DIMENSION I DATA ( 36 *25 ) . I TOTL ( 120 *27 ) * I CTRT ( 120 *5 ) .IOUT1 120) 
JDATE ( 36 ) ♦ I REPT ( 36 ) * IDATE ( 36 ) » A, NAME ( 27 ) *6 NAME ( 27 ) 
'-'EXP (36) * I MOD ( 3 ) ♦XOCSTilS) ,XC0ST(6,36) *IPERF(36) * 
JCON (36*3) * XXCST (18) * I I OUT ( 1 20 ♦ 36) » NREQD ( 36 * 1 1 ) 
COMMON I RAW'D *N »M» IN, I DATA* I TOTL * ICTRT » I OUT , I REPT , I DATE, MM* 
JDATE » MEXP * XCOST * I PERF * IRAN ♦ XOCST , JCON * ISEN2 ,2C0S T * 


COM 

I F ( 


A PER * USX L ,LL *XXCST » I IN* I I OUT ♦ NREQD * I AM ♦ I FM, I CODE (12*37) 
M 0 M /ALpw A / A N A Mi E » B N A M E » I MOD 
I SEN2-I SCHD ) 18 » 1 , 1 


I NT SCHEDULE 


1 I F (JUMP-1 ) 2*6* 10 

PRINT SCHEDULE HEADING 

2 WRITE (6, 3) I SCHD 

3 FORMAT ( 9H SCHEDULE * 1 X * I 4 * 7 5X , 1 2H PERFORMANCES ♦ 9H 
'"RITE (6* M (I, 1 = 1, IN) 

4 FORMAT ( IX * 8H INTERVAL ♦ 2X * I 1 , 19 I 4 , 13H REQ SCHD*15l 

* I ON / * (8 X, 2014)) 

WRITE (6* 5) 


GTPT 
, OTPT 

* OTPT 

OTPT 
OTPT 
OTPT 
OTPT 
OTPT 
OTPT 
OTPT 10 
OTPT 1 1 
OTPT 12. 
OTPT 13 
OTPT 14 
OTPT 15 
OTPT 16 
OTPT 17 
OTPT 1 6 

10 DF OF) OTPT 19 

uTPT 20 

I A C C 0 iM M 0 D A T 0 T R T 2 1 
OTPT 22 
OTPT 23 


5 FORMAT ( IX* 109 ( 1K-) ) 

RETURN 

PRINT SCHEDULE OF EXPERIMENT NEXP 

6 V. 0 D X = M E X P ( M EXP) /1Q00+1 
MEXP?= V EXP ( NEXP ) - (MEXP (NEXP )/ 1000 ) *1000 
WRITE (6, d) MFXP2 ♦ ■ ( I OUT ( I ) » 1 = 1,1 IN) 

; ' ; R I TF ( A » 17) I R E P T (NEXP) ,IPERF(NEXP) » I MOD ( MODX ) 

17 FORMAT ( 1H+»88X»2I6*7X*A2) 

I X X = I IN + 1 
I F ( I N-20 ) 18 * 18* 7 

7 WRITE (6* 15) ( I CUT ( I ) * I = IXX*IN) 

9 FORMAT (IX, 3 HFPE*lX, 13*2014) 

RETURN 

C PRINT RESOURCE SUMMARY 

10 WRITE (6, 5) 

WRITE (6* 11) 

11 FORMAT (IX* 2 OHS UMM AR Y OF RESOURCES) 

'"RITE (6* 12) (I* 1 = 1, IN) 

12 FORMAT ( 1 OH INTERVAL ,2016/, (10X.20I6)) 

DO 13 1 = 1 *'•’ 

13 '•"RITF(6* 16) ANAWE ( I ) »BNAME ( I ) * < I TOTL ( J , I ) » J = 1 , 1 M ) 

DO 14 1=20,27 

14 WRITE(6» 16) Ar-iAMEU) ,BNAfoE( I ) *( ITOTLt J»I ) , J=1*IN) 

15 FORMAT ( 8 X , 20 I 4 ) 

16 FORMAT ( IX ,2A4, IX *2016/ » ( 10X*20I6) ) 

18 RETURN 


OTPT 24 
OTPT 25' 
OTPT 26 
OTPT 27 
OTPT 26 
OTPT 29 
OTPT 30 
OTPT 34 
OTPT 5 6 
OTPT 31 
U 3 PT 5 2 
OTPT 33 
OTPT 35 
0 T P i 3 6 
GTPT 3 7 
OTPT 36 
OTPT 3 9' 
GTPT 40 
OTPT 4 1 
GTPT 4 2 
OTPT 42 
GTPT 4 4 
OTPT 45 
GTPT 46 
GTPT 4 7 
OTPT 54 
OTPT 55 
GTPT 57 


F N D 


OTPT 5 8 
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SI BFT C COST HECK 

SUBROUTINE COST! I SCHO * I FLAG #NEXP ) 

0 I M ENSIGN IDATA(36»25) . I TOTL ( 120 » 2 7 ) , I CTRT { 1 20 . 5 ) * I OUT ( 120) 

* JDATE ( 36 ) ♦ 1REPT ( 36 ) , I DATE ( 3 6 ) » F FD ( 5 ) * AMD ( 5 ) ♦ 

* MEXP ( 36 ) » XOCST ( 1 8 ) * X COST (8 *36) *IPERF(36) » 

.* JCON ( 36 * 3 ) » XXCST ( 18 ) » I IOUT ( 120 * 36 ) ♦ NREQD ( 36 » 1 1 ) 

COMMON I RAND *N * M » IN » I DATA * I TOTL # I CTRT ♦ IOUT » I REPT » I DATE » MM ♦ 


■M- 

* 


JDATE ♦iMEXP * XCOST * I PERF , I RAN » XOCST , JCON * I SEN 2 ,ZCOST ♦ 

APFR * M S K L *LL »XXCST » I IN * I IOUT , NREQD, I AM, I FM , I CODE (12*37) 


COST 

COST 

COST 

COST 

COST 

COST 

COST 

COST 


2 

3 

A 


1 
2 
3 
A 
, 5 
6 

7 

8 


IF ( I FLAG) 6 *1*17 



COST 

9 




COST 

10 




COST 

11 

INITIALIZATION AND INPUT OF COST VARIABLES 



COST 

12 

READ ( 5 * A) IYR 



COST 

13 

WRITE (6* A) IYR 



COST 

1 4 

IYR. - NO. OF INTERVALS/YEAR 



COST 

15 

DO. 3 J = 1 ♦ N 



COST 

16 

REA D ( 5 ♦ 2 ) ( XCOST ( I , J) . 1 = 1 *8 ) 



COST 

17 

FORMAT ( 10F8.1 ) 



COST 

18 

WR I TE ( 6 » A) MEXP ( J ) ».( XCOST ( I » J ) *1 = 1*8) 



COST 

19 

FORMAT ( IX. I9»9F9«1 ) 



COST 

20 

READ ( 5 ♦ 2) ( FED ( I ) * 1=1*5) 



COST 

21 

WR ITE ( 6 » 5) ( FFD ( I ) , 1 = 1*5) 



COST 

22 

FORMAT ( IX, 10F9. 1 ) 



COST 

23 

READ ( 5 ♦ 2) ( AMD ( I ) * I = 1 * 5 ) 



COST 

2 A 

WRITE (6, 5) (AMD ( I) *1=1*5) 



COST 

25 




COST 

26 

XCOST ( I , J ) - THE COST OF EXPERIMENT J REQUIRED 

THE (9- 

I )TH ' 

COST 

27 

YEAR PRIOR TO THE FIRST SCHEDULED 

PERFORMANCE 

COST 

28 

OF EXPERIMENT J. 



COST 

29 

FFD ( I ) - THE COST OF DEVELOPING A FREE-FLY I NG MODULE THAT 

COST 

30 

IS REQUIRED IN THE (6-1 ) TH YEAR PRIOR TO 

THE 

COST 

31 

FIRST USE OF A FF MODULE. 



COST 

32 

AMD ( I ) - THE COST OF DEVELOPING AN ATTACHED 

MODULE 

THAT 

COST 

33 

IS REQUIRED IN THE (6-1 ) TH YEAR PRIOR TO 

THE 

COST 

34 

FIRST USE OF AN ATTACHED MODULE. 



COST 

35 




COST 

36 

THE NUMBER OF YEARS THE COST OF AN EXPERIMENT PACKAGE 

IS SPREAD COST 

37 

OVER IS ASSUMED TO BE 8. 



COST 

38 

THE NUMBER OF YEARS THE, DE VELOPEiMENT COST OF A 

module 

IS SPREAD COST 

39 

OVER IS ASSUMED TO BE 5. 



COST 

40 




COST 

41 

YR= I YR 



COST 

42 

I YTP=8*I YR 



COST 

43 

IYTPM2=I YTP-2 



COST 

44. 

I YTP5=5*IYR 



COST 

45 

NSYR=7*IYR 



COST 

46 

RETURN 



COST 

47 




COST 

48 




COST 

49 

DO 7 I F I RST = 1 * I N 



COST 

50 

I F ( I OUT ( I F I RST ) ) 8 ♦ 7 * 8 



COST 

51 

CONTINUE 



COST 

52 

RETURN 



COST 

53 
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I FIRST ~ -IRST INTERVAL NEXP W AS SCHEDULED IN' 


COST 

5 4 

B 

K K. = MF X P ( NFXP ) / 1000 


COST 

5 5 


IF ( K K — 1 ) 1 3 * ° ♦ 1 1 


COST 

56 

9 

IF ( I FIRST- I AM) 10*13*13 


COST 

5 7 

10 

I A M = I F I R S T 


COST 

5 8 


I AM - FIRST INTERVAL IN WHICH AN ATTACHED MODULE IS 

USED 

COST 

5 y 


CO TO 13 


COST 

6 0 

1 1 

IF< I FIRST- 1 F'O 12*13*13 


COST 

6 1 

12 

I F M = I F I R S T 


COST 

62 


IF;': - FIRST INTERVAL IN WHICH A FREE FLYING MODULE 

IS USED 

COST 

6 3 




COST 

64 

13 

DO ’ 16 K = 1 , 1 YTP 


COST 

6 5 


< K= ( IYTP-T ) /I YR + 1 


COST 

6 6 


11= ( IFIRST+IYTPM2 ) / I Y R 


COST 

6 7 


I F ( I I ) 14 ,14 *15 


COST 

6 8 

14 

I 1= ( IYR-I I ) /I YR 


COST 

6 9 

15 

XOCST ( I I ) =XCOST ( KK ,MEXP ) / YR+XOCST { I I ) 


COST 

70 

16 

I FIRST =1 FIRST- 1 


COST 

7 1 


RETURN 


COST 

72 




COST 

73 




COST 

74 


LOGIC TO CONSIDER MODULE DEVELOPMENT 


COST 

7 5 

17 

DO IB 1 = 1 »IYTP5 


COST 

76 


I I = ( ( I AM — I ) +MSYR+ I YR— 1 ) / I YR 


COST 

77 


K K = 5 — ( I — 1 ) / IYR 


COST 

7 6 


XOCST ( I I ) = X OC S T ( I I ) +A.MD IKK.) /YR 


COST 

79 


I I«{ < IFM-I ) +NSYR+ IYR-1 ) /I YR 


COST 

8 0 

IB 

XOCST ( I I ) = XOCST ( I I ) +FFD ( K K ) /YR 


COST 

L I 


DO IP 1 = 1 *16 


COST 

82 


XOCST ( I ) = X 0 C S T ( I )*,001 


COST 

8 3 

1 9 

/.COST = ZCOST +XOCST ( I ) 


COST 

8 4 


ZCOST - TOTAL COST 


COST 

8 5 




COST 

6 6 


CALCULATION OF CUMULATIVE COST (XXCST) 





XXCST ( 1 ) = XOCST ( 1 ) 


COST 

6 6 


DO 20 1=2,13 


COST 

3 9 

2 0 

XXCST < I ) = XXCST ( I -1 ) +XOCST ( I ) 


COST 

9 C 




COST 

91 




COST 

9 2 


I F { 1 3 E N 2 - 1 S CH D ) 2 7 *21*21 


COST 

9 3 

21 

WRITE (6* 2 2 ) 


COST 

94 

2 2 

FORMAT ( 3 AH COST PER YEAR (MILLION DOLLARS.) ) 


COST 

9 b 


V'R I TF ( 6 * 23) (I* 1 = 1970, 1970) 


COST 

9 6 

23 

FORMAT (IX ,10110) 


COST 

9 7 


V'R I TF ( 6 * 24) ( XOCST ( I ) * 1 = 1,10) 


COST 

93 

24 

FORMAT ( 1 X ♦ 1 0F1U • 2 ) 


COST 

9 9 


HR I T F ( 6 * 24) (XXCST(I), 1 = 1,10) 


COST 

1 0 0 


WE I TF ( 6 , 25) (1 * 1 = 1980*1987) 


COST 

1 0 1 

2 5 

FORMAT ( IX, 8 I 10 *4X , 5HT0TAL ) 


COST 

10 2 


WRITE (ft, 24 ) ( XOCST ( I ) *1=11*18) *ZCOST 


COST 

.103 


WRITE' 6* 24 ) ( XXCST ( I ) » 1=11*18) 


COST 

104 


WRITE ( 6 * 26 ) 


COST 

105 

2 6 

FORMAT ( 1 ! 11 ) 


COST 

10 6 

77 

RETURN 


COST 

107 


F N D 


COST 

1 0 8 
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SIRFTC ZPCK DECK 

SUBROUTINE ZPACK ( NEXP ) 

DIMENSION I DAT A ( 36*25) » ITOTL( 120 >27 ) , ICTRT (120,5) , I OUT ( 120 ) , 

» JDATE ( 36 ) , IREPT ( 36 ) , IDATEf 36) » ANAf'E (27) , BN A ME ( 27 ) » 

* MEXP(36) , I MOD ( 3 ) ,XOCST( 18) , XC05T ( fa , 36 > * I PERF ( 36 > , 

* JCON( 36,3) ,XXCST ( 18 ), I IOUT ( 120,36) ,NREOD( 36,11 ) , 

* I ST OR ( 120) ,KFT(3) 

C 0 M MON I RAND ,N I N , I DATA , I TOTL » ICTRT , I OUT , I REPT , I DATE ,M M , 

* JDAT E, ME XP, XCOST , I PERF , I RAN » XOCST , JCON , I SEN2 , ZCOS T , 

* APER ,\'SKL , LL , XXCST , I IN, I I OUT , NREOD , I AM , I EM, I CODE (12,37) 
COMMON/ALDH VANAME *BNAME, IMOD • 

VI = 4 

C MODTY = FLAG WHICH INDICATES MODE OF ACCOMODATION 

MOD T Y = vE XP ( NEXP ) / 1000 
NRPT=I REPT ( NEXP ) 

C NRPT . - NUMBER OF REQUIRED PERFORMANCES FOR EXPERIMENT NEXP 

DO ' 1 1=1,3 

1 KFT ( I ) =JCON ( NEXP , I ) 

C X FT = DEFINES FPE'S WHICH CONFLICT WITH FPE BEING SCHEDULED. 

IF (MODTY) 2, 2,3 

2 ISAVI = IDATA (NEXP, 21 ) +1 DATA (NEXP ,2 5 ) 

GO TO 4 

3 ISAVI = IDATA (NEXP, 21 ) 

C ISAVI = S°ACE STATION STORAGE VOLUME REQUIRED TO STORE FPE BEING 


C SCHEDULED. 

4 IF ( NRPT ) 48*48*5 ZPCK21 

ZPC< 2 2 

TEST TO CHECK IF EXPERIMENT NEXP HAS A FORCED START DATE 2 PCX. 2 5 

5 IF( IDATE(MEXP) )9,9,6 ZPCK 24 

6 INTVL=IDATE (NEXP) ZPCK 25 

DO 7 X = 1 » V 1 Z PCX 2 6 

CHECK .PIRST 4 CONSTRAINTS (MANPOWER, ELECTRICAL POWER, ETC.). 

I F ( ICTRT ( INTVL.K J-ITOTLl I N T V L , K ) -I DAT A ( NEXP , X ) >48,7,7 ZPCX 27 

7 CONTINUE ZPCX 28 

CHECK STATION STORAGE VOLUME. 

I F ( ICTRT ( I NTVL * 5 ) — I TGTL ( I NTVL , 26 ) “I SAVl )48,8,8 ZPCX 29 

CHECK FOR OTHER FPE'S WHICH CONFLICT. 

8 I F ( I COM ( I CODE 1 * I NTVL »KF T ) ) 14*14,48 

ZPCK 31 

THIS SECTION SELECTS THE START INTERVAL. 


ZPCK 32 


9 CALL ORDER ( IN, I STOR ) ZPCK 33 

C I ST OR IS A RANDOM ORDERING OF THE IN INTERVALS ZPCK 34 

DO 13 J = 1 , 1 N ZPCK 3 5 

I NT VL = 1ST OR ( J ) ZPCX 36 

C EXPERIMENT NEXP CANNOT BE SCHEDULED BEFORE JDATE (NEXP) ZPCK 37 

I F ( INTVL-JDATE( NEXP) ) 13,10,10 ZPCK 38 

10 DO 11 X = 1 » v 1 ZPCK 39 

I F ( ICTRT ( I NTVL » K ) -I TOTL ( I NTVL ,K ) -I DATA ( NEXP*K ) ) 13 * 1 1 » 1 1 ZPCK 40 

11 CONTINUE ZPCK 41 

I F ( I CTRT ( I NTVL » 5 ) -I TOTL ( I NTVL . 26 ) -I SAV I ) 13 » 12 , 12 ZPCX 42 

12 I F ( I CON ( I CODE »-l , I NTVL » KFT ) ) 14,14,13. 

13 CONTINUE ZPCK 44 

GO TO 4 ^ ZPCK 4 5 


ZPCK 1 
ZPCK 2 

ZPCK 4 
ZPCK 5 
ZPCK 6- 
ZPCK 7 
ZPCK 8 
ZPCK 9 
ZPCK 10. 
ZPCK 11 

ZPCK 12 
ZPCK 13 
ZPCK 14 
Z PC K 1 5 
ZPCK 16 

ZPCK 17 

ZPCK 19 



NORTHROP tr-808 

HUNTSVILLE • ” — ^ 


c 




ZPCK 

46 


14 

I OUT ( INTVL ) =1 


ZPCK, 

47 

c 


NEXP HAS BEEN SCHEDULED IN INTVL 


ZPCK 

48 



•I SAVE= INTVL 


ZPCK 

49 

c 


ISAVE = FIRST INTERVAL NEXP HAS BEEN SCHEDULED IN 


Z.PCK 

5 0 



NRPT =NRPT- 1 • 


ZPCK 

51 


15 

■IF(MRPT)31*31*16 


ZPCK 

52 


16 

I NT VL= I N T VL + 1 


ZPCK 

53 



IF ( I.NTVL-IN ) 17, 17,23 


ZPCK 

5,4 

c 




ZPCK 

55 

c 


LOOP FOR SCHEDULING AFTER ISAVE 


ZPCK 

■ 56 


17 

DO 19. K=l,Ml 


ZPCK 

57 



I F< ICTRT ( INTVL »K)-ITOTL( I NTVL *K) -I DATA ( NEXP »K) ) 18 ,19 

,19 

ZPCK 

58 


18 

IF ( ICTRT ( INTVL* -5 ) — I TOTL < I NTVL ,26 ) -I SAVl ) 2 3 *16 *16 


ZPCK 

59 


19 

CONTINUE 


ZPCK 

60 



I F ( ICTRT ( INTVL* 5 ) - 1 TOTL ( I NTVL *26 ) -I SAVE) 23 ,20 » 20 


ZPCK 

61 


2 0 

I TEST = I CON ( ICODE »MODTY * I NTVL »KFT ) +1 
GO TO (21*23*16) * ITEST 





2.1. 

I OUT. ( I NTVL) «1 


ZPCK 

63 



NRPT =NRPT-1 


ZPCK 

64 



IF( IMTVL-ISAVE)22, 15*15 


ZPCK 

65 


22 

IF(NRPT)31, 31*24 


ZPCK 

6 6 

c 




ZPCK 

67 

c 


LOOP FOR SCHEDULING BEFORE ISAVE 


ZPCK 

68 


23 

I NT VL= I SAVE 


ZPCK 

69 


24 

intvl=intvl-i 


ZPCK 

70 



IF ( INTVL ) 3 1 *31*25 


ZPCK 

71 


25 

I F ( I NTVL- 1 DATE (NEXP) ) 3 1,2 6, 26 


ZPCK 

72 


26 

IF ( INTVL -JD AT E(NEXP) )31»27*27 


ZPCK 

73' 


27 

DO 29 K = 1 *M-1 


ZPCK 

74 



IF ( ICTRT ( INTVL.K )-ITOTL( I NT VL * < ) - 1 DAT A ( NEXP , K ) >28,29 

,29 

ZPCK 

75 


28 

I F ( ICTRT ( INTVL. 5 ) -I TOTL ( I NTVL ♦ 2 6 ) -I S AV I >31*24*24 


ZPCK 

76 


29 

CONTINUE 


ZPCK 

77 



IF ( ICTRT ( INTVL* 5 ) - 1 TOTL ( I NTVL * 26 ) - 1 SAV I ) 3 1 * 30 , 30 


ZPCK 

78 


30 

I TEST = ICON ( I CODE, MOOT Y, INTVL »< FT ) + l 
GO TO (21*31*24) , ITEST 




c 


ALL SCHEDULING HAS BEEN COMPLETED FOR NEXP 


ZPCK 

80 

c 




ZPCK 

81 

c 


SUMMATION OF RESOURCE REQUIREMENTS 


ZPCK 

82 

c 




ZPCK 

83 


31 

ISAVE =0 


ZPCK 

84 



DO 47 J= 1 , I N 


ZPCK 

85 



I SAVE = I SAVE + 1 OUT ( J ) 


ZPCK 

86 



I F ( ISAVE >47,47*32 


ZPCK 

87 


32 

I F ( I CUT ( J) >47*43,35 


ZPCK 

90 


35 

I F ( I SAVE-1 ) 47,36,37 


ZPCK 

91 


35 

I TOTL ( J, 24) =1 TOTL ( J,24)+I DATA! NEXP, 24) 
ITOTL ( J»25) =ITOTL( J,25) + I DATA ( NEXP-, 2 5 ) 





37 

DO 38 <= 1,4 


ZPCK , 

. 94 


38 

I TOTL ( J»K) = ITOTL (J,K)+I DATA (NEXP »K ) 


ZPCK 

95 

c 




ZPCK 

96 

c 


SKILL TYPE ALGORITHM 


ZPCK 

97 



IF(NREOD(MEXP,l ) >41,41,39 


ZPCK 

98 


39 

INDEX=NREOD(NEXP,l>*2 


ZPCK 

99 



DO 40 1 = 2 .INDEX, 2 


ZPCK 

100 
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I 2 = NREOf> (NEXP. I ) +K1 

40 I TOTL ( J, I 2 ) =1 TOTL ( J. I 2 ) +.NREQD(NEXP .1+1 ) 

C 

41 00 42 K=20»23 

42 I.TO-TL l J * K ) = IT OTL ( J ♦<) + IDAT A ( NEXP *< ) 

I TOTl. ( J ♦ 26 ) = 1 TOTL ( J .26 > +1 DATA ( NEXP » 2 1 > *3 
ITOTLLJ.27) = 1 TOTL ( J ♦ 27 ) + 1 OUT (JS 

43 I F ( ISAVE-1 KEPT ( NEXP )+MRPT ) 45 .44.47 

4 4 I TOTL ( J. 22 ) = I TOTL ( J.2 2 ) +1 DATA (MEXP .24 ) 

I TOTL ( J. 2 3 ) = I TOTL ( J.23 > + I DATA (NEXP .25 ) 

I SAVE = I SA VE+ 1 
4 5 I F ( MOD T Y 14 6. 46 .47 

46 I TOTL ( J.26 ) = I TOTL ( J.2 6 ) + 1 DAT A ( ME XP . 2 5 ) 

47 CONTINUE 
C 

C CALCULATION OF THE NO OF PERFORMANCES COMPLETED 

43 I PERF ( NEXP 5 =1 REPT (NEXP J-NRPT 
DO 40 1 = 1, I N 

49 I IOUT ( I i NEXP) = I OUT ( I ) + I IOUT ( I .NEXP ) 

RETURN'. 

END 


ZPCK 101 
/. PCK 102 
4PC:< 100 
ZPCK. 104 
ZPCK 106 

ZPCK 111 
ZPCK 112 
ZPCK 113' 
ZPCK 114 
ZPCK 116 
ZPCK 116 
ZPCK 117 
ZPCK 118 
ZPCK 119 
ZPCK 120 
ZPCK 121 
ZPCK 122 
ZPCK 123 
ZPCK 124 
ZPCK 125 


7 I P F T C ICON DECK 

FUNCTION I CON ( I CODE .MOOT Y * IN.IFLCK > 
DIMENSION I CODE ( 12.37) »IFLC<<3) 

ICON =0 : 

C FUNCTION I CON CHECKS TO SEE IF EXPERIMENTS 

C PE EM SCHEDULED IN INTERVAL IN 

C 

I W 0 R D = ( IN-1 ) / 10+1 
I 3 I T=1D**( IWORD#10-IN) 

DC 2 1=1.3 

M* I FL CK (I) ' . 

I F ( M ) 2 . 2 * 1 

1 K - I CODE ( I WORD.M ) / I BIT 
I CON - K- (K / 10 ) *10 

I F ( ICON) 3.2 .3 

2 CONTINUE 
. RETURN 

3 I F ( -V.EO. 37.AND.MODTY.EQ.O ) I'CO.M* ICON + 1 

RETURN 

r 

C ICON = 2 - ARTIFICIAL GRAVITY CONFLICT . 

C I C 0 M = 1 - CONFLICT 

C I COM=0 - NO CONFLICT 

END 


ICON 

ICON 

IFLC.K ( 1-3 )■ HAVE ICON 

ICON 
ICON 
ICON 
ICON 
I CON 
I COM 
ICON 
ICON 
I CON 
ICON 
I COM 


ICON 

I CON 
I COM 
ICON 


2 

3 

4 
6 
6 
7 
H 
9 

10 
1 1 
1 2 

13 

14 

15 


1 7 

18 

■19' 

2 0 
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$ I R FTC OR DP DECK 


SUBROUTINE ORDER ( N ♦ IORD.) 

. OR DR 

1 

DIMENSION IORD(l) 

ORDR 

2 

I iv, = N 

. ORDR 

4 

DO 1 1 = 1 * N 

ORDR 

5 

I ORD ( I ) = I 

ORDR 

. 6 

DO ? I = 1 » N 

ORDR 

7 

CALL RANDXX ( R.NBR *0 »NN ) 

ORDR 

8 

X X = I N! 

ORDR 

9 

I .X = R N B R X X 

ORDR 

10 

I X = I X + 1 

ORDR 

11 

I SA V= I OR D ( IX) 

ORDR 

12 

■I ORD ( I X ) = I ORD ( I N ) 

ORDR. 

13 

I ORD ( IN) = I SAV 

ORDR 

14 

I'N= I N“ 1 

ORDR 

15 

CONTINUE 

ORDR 

16 

RETURN 

. ORDR 

17 

END 

ORDR 

18 


J1BFTC RAND DECK 

SUBROUTINE RAN.DXX ( R ♦ I FLAG * NN ) 

■ COMMON N 
. I F ( I FLAG ) 2 * 1 » 2 

1 N=N*78125 

R = FLOAT ( N ) / • 34359738E+ 1 1 
RETURN 

2 I F ( (2*(NN/2 ) — NN ) .EO.O) NN=NN+1 
N = I A R S ( N M ) * 1 9 5 3 1 2 5 

RETURN 

END 


RAND 1 
RAND 2 
RAND ' 3 
RAND 4 
RAND 3 
RAND 6 
RAND 7 
RAND 8 
RAND 9 
RAND 10 


SI BFTC EC DE DECK 

SUBROUTINE ENCODE ( K * I CODE ♦ I OUT ♦ I N ) '' ECDE 1 

DIMENSION I CODE ( 12,37 ) »IOUT(l) . ECDE 2 

ECDE 3 

PACKS I OUT ( IN ) FOR EXPERIMENT K INTO ICODE(12,K) ECDE 4 




ECDE 

5 


IX = ( IN + 9) 710 

ECDE 

6 


DO 1 1 = 1 * IX 

ECDE 

7 


I CODE ( I * K ) = 0 

ECDE. 

8 


DO 1 KK=1»10 

ECDE 

9 


MM= ( 1-1 ) *10+KK 

ECDE 

10 


IF (MM- IN) 1*1*2 

ECDE 

1 1 

1 

I CODE ( I *K ) = I OUT ( MM).*( 10** ( 10-KK ) ) + I CODE ( I * K ) 

ECDE 

12 

n 

DO 3 K K = 1 » I N 

ECDE 

13 

3 

I OUT ( KDO =0 

ECDE 

14 


RETURN ' 

ECDE 

15 


END 

ECDE 

16 
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51 RFT-C INPT DECK ' 

•SUBROUTINE INPUT 

MANSION ID AT A (35,25) , I TOTL ( 120 * 27 > * I C T RT ( 1 2 3 ., 5 5 ,!0*JT( 12;) ) ♦ 

#' JDATE (36)* IREPT ( 36 > * I DATE ( 36 ) , ANAME ( 27 ) » BN A, ME (27) ♦ 

* E X P ( 36 ) ,IM0D( 3 ) ,XOCST (IB) .XCOST ( 8 .36 ) , IPERF ( 36 ) , 

«• JCON ( 36 » 3 ) ♦ XXCST ( 18) » I I OUT ( 120*36) ♦ NREQD ( 3 6 * 1 1 ) 

DIMENSION A ( 11) » JCOMX ( 3 ) 

DIMENSION B ( 9 ) » K LOUT ( 5 ) 

COMMON IRAND.N.M, IN * I DATA , I TOTL * ICTRT * I OUT , IREPT . I DATE » MM , 

X JDATE »M EXP , XCOST * I P ERF * I RAN * XOCST , JCON , I SEN? » ZCOST * 

* A PER »- M SKL * LL .XXCST ♦ I I N , I I OUT .NREQD * I AM * I FM * I CODE (12*37) 
COMMON /A L D H A /AN AM E * RNAME ♦ I MOD 

DATA IRLNK/6H- / 

DATA A4 , X I 4/ 6H » 7 X » A4 * 6H » 7X * 1 4/ 

DATA A42 .X I42/6H1X »A4» »6H1X* 14*/ 

DATA A/61H ( 1X.3HFPE, I4,1X »A2 ,7X , 14, 11X, 14, 11X , 1 4, 5X ,1X , 14, IX , I 4 , IX 
« , 14, ) / 

DATA B/49EK4H FPE,I5,1X* 4X , A6 , 4X , A6 , 4X , A6 . 4X , AS , 4X , A6 ♦ ) / 

DATA B I / 6 H ? X , IS*/ 

DATA BA/6H4X *A6 , / 

C ' N = NUMBER OF EXPERIMENTS 

C IN = Nl.iv HER OF UNIT TIME INTERVALS 

C LL = NUMBER OF SCHEDULES' 

C 

READ (5*112) N , I N , LL , NSKL , I RAND 
■ WR I TE (6 * 1 1 2 ) N » I N » LL ♦ NSKL , I RAND 
112 FORMAT (415, 110) 

I I N = 2 0 

I F ( IN-20) 500 ,501, 501 
5 CO I I N = I M 
501 CONTINUE 

c = NUMBER OF RESOURCES TO BE CONSTRAINED 

•v = 4 + N S X L 

CALL RANDXX (APER , 1,1 RAND) 

A P F R = 0 • 

WRITE (6*8699) 

8699 FORMAT ( 1H1 , 29X , 22HLOG I ST I CS REQUIREMENTS//) 

UR I TE ( 6 , 8700 ) 

8700 FORMAT ( 13X ,6HFXP WT,4X,7HEXP VOL , 3X » 9HSUPPLY WT , 2X , 1 OHSUPPLY VOL, 

IX, 9H RETURN WT ,2X , 10HRETURN VOL/) 

C ME XP ( I ) = EXPERIMENT NUMBER OF I TK EXPERIMENT 

C I DATE ( I ) = THE INTERVAL IN WHICH EXPERIMENT I IS FORCED TO START 


C JDATF(I) = FIRST INTERVAL IN WHICH EXPERIMENT I MAY START 

f IREPT(I) = NUMBER OF INTERVALS. ■ I N WHICH ITH EXPERIMENT IS TO BE 


r 


SCHEDULED. 






r 

I DATA ( I , J) 

= THE AMOUNT 

OF . RESOURCE J 

REQUIRED 

BY EXPERIMi 

NT 

I 

r 

DURING ONE 

UN. IT TIME INTERVAL. 





C 

I DA TA ( J , 1 ) 

= BIT RATE 






C 

I DAT A (J, 2 ) 

= AVE WATTS 

REQUIRED TO 

PERFORM 

.EXPERIMENT 

J 


r~ 

I DATA ( J » 3 ) 

= KW— HOURS 

REQUIRED TO 

PERFORM 

EXPERIMENT 

J 

DUR 1 Nu 

c 


UNIT TIME 

INTERVAL 





c 

I DATA ( J , 4 ) 

= MAN HOURS 

REQUIRED TO 

PERFORM 

experiment 

J 

DUR I MG 

c 


UNI T TIME 

I INTERVAL 





c 

I DATA ( J, 20 ) 

= SUPPLY WT 

REQUIRED TO 

PERFORM 

EXPERIMENT 

J 

DUR I Mu 

/■ 


UNIT TIME 

I NTERVAL 
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I PAT A ( J * 2 1 ) = SUPPLY VOL REQUIRED TO PERFORM EXPERIMENT J DURING 
UNIT TIME INTERVAL 

I DATA (J, 22) = RETURN WT PER UNIT TIME INTERVAL 

I DATA (J, 23) = RETURN VOL PER UNIT TIME INTERVAL 

I DATA ( J* 24) = EXP WT 
IDATA(J,25) = EXP VOL 
DO 111 1=1. N 

READ (5*110 ) MEXP ( I ) ♦ I DATE ( I ) » JDATE ( I ) * I REPT ( I ) ♦ ( I DA TA ( I , J ) ♦ J= 1 * 3 ) 

* * ( 1DATA( I *J) »J=20»25) 

C JCON(I) = THE EXPERIMENT WHICH CONFLICTS WITH I TH EXPERIMENT 

READ( 5*110) ( NREQD ( I , J ). ♦ J = 1 ♦ 1 1 ) * ( JCON ( I , J ) ♦ J=l*3) 

110 FORMAT (151 5) 

I DATA ( I * A ) = 0. 

I F ( NREQD (1*1)) 81*81*82 
82 K = N R E Q D ( 1*1 )*2+l 
DO 80 J= 3 » K *2 

80 I DATA ( I ,4) =NREQD < I , Jl + IDATA < I ,4 ) 

81 APER=APER+FLCAT ( IREPTC I ) ) 

MEXP2 = MF. XP ( I ) - (MEXP ( I ) /1000)*1000 
MODX= ( MEXPt 1 ) -ME XP2 )/ 1000+1 

111 WRITE (6* 8701) MEXP2 , I MOD ( MODX ) ♦ I DATA ( I ♦ 24 ) * I DATA ( I » 25 ) * 

* Cl DATA ( I .J) * J = 20 » 23 ) 

8701 FORMAT ( 4H F PE . I 4 , 1 X * A2 * 2X * 6 (I 5 ♦ 6X ) ) 

WRITE (6. 5550) 

5550 FORMAT (1H1.23X* 23HSCHEDUL ING REQUIREMENTS//) 

WRITE (6* 5560) 

5560 FORMAT ( 13X* 12HFORCED START ♦ 3X ♦ 1 3HM I N I MUM START ♦ 4X * 9HNUMB ER OF ,7X* 

* 9HC0NFL I C T.S , / , 1 5X , 8H INTERVAL » 7X » 8H I NTER VAL ♦ 6 X » 

* 1 2HPERF0R MANGES »4X » 1H1 »4X»1H2 *4X*1H3/ ) 

DO 450 J=1 ♦ N I 

I F ( IDATEf J) ) 819.818,819 
518 A(4)=A4 

I DATEX=I 8LNK 
GO TO 820 

819 A ( 4 ) = X 1 4 

I DATEX = I DATE ( J ) 

820 DO 821 K = 1 * 3 

I F ( JCON ( J ♦ K ) ) 830*831.830 
831 A ( K+7 ) =A42 

JCON X ( X ) =1 RLNK 
GO TO 821 
830 A ( K+7 ) =X 142 

JCONX(K) = JCON ( J » K ) 

821 CONTINUE 

I F ( JDATE ( J ) .FQ.O ) JDATE(J)=1 
MEXP2=MEXP( J ) - ( MEXP ( J ) / 1000) *1000 
MOD X= ( ME XP ( J ) — ME XP2 ) / 1 000 + 1 

450 WR I TE ( 6 » A ) MEXP2 » I MOD ( MODX ) . I DATEX ♦ JDATE ( J ) *IREPT(J) ♦ 

* ( JCONX(K) *K=1.3) 

DO 205 K = 1 ♦ 3 

DO 205 1=1* N 
DO 204 J = 1 . N 

I F ( JCON ( I * K ) -MEXP ( J ) ) 2 04*202 *204 
204 CONTINUE 

I F ( JCON ( I,K >-37)133.205 ♦ 133 
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133 JCQN ( I » K ) =0 
GO TO 205 
202 JCON ( I »K ) = J 
205 CONTINUE 

WRITE (6 *465) 

465 FORMAT { 1 HI ) 

C A NAME ( J ) = THE EIGHT LETTERS USED TO DESCRIBE RESOURCE' J ON 

C PRINT OUT. 

C ANAME (1 ) = AVERAGE WATTS 

C A N A M E ( 2 ) = K I LOWATT-HOURS 

C AMAME ( 3 ) = BIT. RATE 

C ANAME ( 4 ) = MAN HOURS 

C A NAME ( 5—19) = SKILL TYPES 1-15 

C ANAME (26) = SPACE STATION STORAGE VOLUME REQUIRED ASSUMING THAT 

C EACH EXPERIMENT IS RETURNED TO EARTH AFTER COMPLETION 

DC 9 J = 1 .4 

R E A D ( 5 » 1 1 ) ANAME <J)*9NAME(J) 

11 FORMAT (2A4) 

C I CTRT.t I » J ) = THE AMOUNT OF RESOURCE J AVAILABLE DURING INTERVAL I. 

REAP(5»118) <ICTRT(I,J), 1=1, IN) 

118 FORMAT (1018) 

WRITE (6, 88) ANAME (J) » BNAME (J ) 

8 3 FORMAT ( IX, 2 A4) 

9 WR I TE ( 6 » 1 1 9 ) (ICTRTU.J), 1 = 1, IN) 

119 FORMAT ( IX, 101 9) 

. READ ( 5 ♦ 14 ) ( ANAME ( J ) »RNAME ( J ) , J=5»M) 

14 FORMAT (20A4) 

READ (5,11) ANAME (26) , BNAME (26) 

READ ( 5 , 1 1 8 ) ( ICTRT ( I » 5 ) , 1 = 1, IN) 

READ (5,90) ( ICODE ( I ,37) , 1 = 1 ,12 ) 

90 FORMAT (61 10) 

WRITE (6,91) ( I CODE ( I ,37) , 1 = 1 ,12 ) 

91 FORMAT ( 1 3H ARTIFICIAL G/(1X,6I10)> 

C ARTIFICIAL G CONFLICT MUST BE INPUT IN JCON(NEXP,3) 

WRITE (6, 931) 

931 FORMAT ( 1H1 , 23 X , 2 1 HRESOURC E REQUIREMENTS//) 

WRITE (6, 9000) < ANAME (K) ,BNAME(K) , K=l,4) 

9000 FORMAT ( 13X *4( 2X,2A4) ) 

DO 1111 1 = 1, N. 

1111 WR I TE ( 6 » 900 1 ) MEXP ( I ) , ( IDATA ( I ,K ) , K=l,4) 

9001 FORMAT ( 4H F PE , I 5 , 1 X , 4 ( 2 X , I 8 ) ! 

N 0 = 1 

IX= (NSKL/5 )+l 
DO 8888 I = 1 , 1 X 
WRITE (6, 9002) 

9002 FORMAT ! 1H1 , IPX, 23HSKILL TYPE REQUIREMENTS//) 

N01 = 1*5 

I F ( I.EO. IX) N01 = NSKL 
I J = NO 1+4 
.< K»iN0+4 

WR 1 TE ( 6, 9003 ) (ANAME (KJ ) , BNAME (K J ) , K J = K K , I J) 

9003 FORMAT ( 1 OX » 5 ( 2X * 2A4 ) ) 

DO 8887 IJ=1,N 

DO 804 K J= 1 , 5 
R(KJ+3)=8A 
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304 KLOUT !krj.) = IP.LMK 
I Z = NR E 00 ( I J « 1 ) * 2 

00 803 K=N0*N01 
N 0 2 = K — ( I — 1 1 ) * 5 

DO 8886 KK=2*IZ*2 

1 F ( NREQD ( I J ♦ KK ) • NE • K ) GO TO 8886_ 

. R ( NC2 + 3 ) =8 I 

KLOUT ( MO 2 ) = NREQD.( I J ♦ KK + 1 ) 

8386 CONTINUE 
803 CONTINUE 

. ME XP2 = M E XP ! I J ) — ( M E X P ( I J) /1000)*1G00 
8887 WR I TE ( 6 » 8 ) MEXP 2 * ( KLOUT ( K ) * K=l*5) 
3888 N0=MC1+1 

RETURN ' " ' 

END 


8IRFTC TRCK 

SUBROUTINE TRACK ( I PRT * LLL ) 

DIMENSION IDATA(36*25) » I TO TL ( 1 20 * 2 7 ) » I CTRT ( 120 ».5 ) »IOUT( 120) » 

* JDATE ( 36 ) ♦ IREPT ( 36 ) * IDATE ( 36 ) #ANAME ( 27 ) ♦BNAME ( 27 ) ♦ 

* M EXP ( 36 ) * I MOD ( 3 ) * XOCST (18) *XC0ST(8*36)»IPERF(36) » 

* JCONl 36*3) » XXCST ( 18) , I I OUT (120*36) » NREQD ( 36*11 ) . 

* M A X ( 120*27) * XMA X ( 1 8 ) * X M A X 1 ( 18) * 

* IPERA(36) *1 ITOT( 120*27) *XCCST( 18) *XTCST( 18 ) • 

COMMON I RAND*N »M* IN* I DATA * ITOTL * I C TR T * I OUT ♦ I R E PT . IDATE * MM * 

* JDAT E .MEXP * XCOST ♦ I PERF » IRAN ♦ XOCST » JCON * I SEN2 * ZCOST » 

* A PER »NSKL »LL*XXCST»IIM,IIOUT*NREQD*IAM.IFM*ICODE(12*37) 
COMMON /A LPH A/ ANAME ♦ BNAME ♦ I MOD 

C 

GO TO (1*4 *8), I PRT 

INITIALIZATION 

1 DO 60 1=1 , IN 
DO 60 J = 1 * M M 

60 MAX ( I * J ) =-0 .34359738E+09 

DO 61 1 = 1 * 18 

XTCST ( I ) =0. 

XMAX ( I ) =-l .OE+12 

61 X,MA XI ( I ) =-l. OE+12 
ZMAX=-1. OE+12 
ZTC.ST = 0* 

DO 330 1 =1 * N 

330. I PERA ( I ) =0 

DO 210 I =1 . IN 
DO 211 J = 1 * N 
2111 I OUT ( I * J ) 

DO 210 J = 1 * 

210 I ITOT ( I * J ) = 0 
RETURN 


TOTAL AND MAXIMUM CALCULATIONS 
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^ no 5 on i = i , in 

PsQ 601 X = 1 , i-'V 

601 I I TOT ( I * '< ) = ITOTL ( I *K ) +1 I TOT ( I ,!< > 

00 4 33 J = 1 » M‘-' 

I F { MAX (! , J ) - I TOT L ( I , J ) ) . 4 30 * 4 33 • 43 3 
430 v.AX ( 1 * J ) =1 TOTL ( I » J ) 

433 CONTINUE 
500 CONTINUE 

PO 3 2 0 I - 1 » M 

320 IFERA.t I ) = I P E R A ( I )+IPF.RF< I > 

DO 7113 1 = 10.° 

XTCST ( I ) = X T CS T ( I ) +XOCST ( I ) 

IF ( X M A X ( I ) — XOCST (I)) 633*634*634 

633 XMAX ( I ) = XOCST ( I ) 

634 I F ( X X C 5 T ( I ) - X U A X 1 ( I ) ) 7113,7113*7111 

71 IT ' XMAX 1 ( I ) =XXCST ( I ) 

7113 CONTINUE 

ZTCST = ZTCST +ZCOST 
I F { Z COST -Z MAX ) 9113*6113*8110 
6 110 Z M A X. = Z C 0 S T 
8113 CONTINUE 
R E T UR N 

OUTPUT 

8 PRINT 5 1 1 ♦ L L L 

511 FORMAT ( 1H1 ,41H FREQUENCY DISTRIBUTION OF SCHEDULIN'"- FOR ,15 
lCHF r 'ULES ) 

RL=LLL 

PRINT 203* (I* 1=1,1 M ) 

203 c ORMAT ( 1 X ,RHI NTERVAL , I 3 , 1 9 I 4 , 5 ( / 8 X , 2 0 I 4 ) ) 

PRINT 204 
PRINT 205 

204 FORMAT ( 1H+ , 87X *14H PERFORMANCES) 

205 FORMAT ( IX, 87( 1H- ) *4X,9HREQ SCHD ) 

DO 50 9 J = 1 * N 

- IPERR ’ =1 F IX ( FLOAT ( IPERA ( J ) ) /RL + 0.5 ) 

M E X P 2 = ME X P ( J ) - ( M F X P ( J ) / 1 0 0 0 ) * 1 0 0 0 
PRINT 1301, IREPT ( J) , IPERR ■ 

1 30 1 FORMAT ( ° 9 X. * 2 1 6 ) 

509 PR I. NT 13 00 ,MEXP2 » ( I I OUT ( I » J ) ♦ 1 = 1 * I N ) 

1 300 FORMAT { 1H+ , 3HFPE * IX* I 3*20 14/ , (8X*2QI4 > ) 

PRINT 2.0 6 

206 F 0 R M A T ( 1 X , 1 0 C ( 1 H — ) ) 

PRINT 502* LLL , 

502 FORMAT ( / IX , 2 9H AVER AGE RESOURCES UTILIZED I N * 2 X » I 3 » 2 X , 9HS CH E 
PRINT 12* (I* 1 = 1* IN) 

DO 314 1=1, IN 
DO 314 J = 1 , vv 

314 I I TOT ( I * J ) = I F I X ( FLOAT ( I I TOT (I , J ) ) /RL + 0.5 ) 

DO 301 <=l*v 

301 PRINT 14, A NAME ( K ) , BN A ME ( K ) » (IITOT(J.K)* J=1»IN) 

' DO 302 <= 7 : 0,27 

302 PRINT 14, A NAME ( K ) , PNAME ( K ) * ( I I TOT ( J * K ) . J = 1,IN) 

PRINT 70S 
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2DR FORMAT (IX*.? 1H AVER AGE COST PER YEAR) 

DO 45 1=1*18 
45 XTCST ( I )=XTCST ( I )/RL 
ZACST = ZT CST / R L 
XCCST ( 1 ) =XTCST ( 1 ) 

HO 480 1=2.18 

480 XCCST ( I ) = XCCST ( I -1 )+ XTCST { I ) 

PRINT 16* (I* 1=1970,1979) 

PRINT 17, ( XTCST ( I ) , 1=1,10) 

PRINT 17, ( XCCST Cl)* 1=1,10) 

PRINT 18, (I* 1=1980,1987) 

npi'VT 17, ( XTCST ( I ) * 1 = 11,18). ZACST 

PRINT 17, (XCCST! I), 1=11,18) 

12 FORMAT (10H INTERVAL , 20 I 6 / 5 ( 1 OX , 20 I 6 / ) ) 
14 FORMAT ( IX ,2A4, IX, 20 16/51 1 OX, 20 1 6/) ) 

16 FORMAT ( IX, 101 10) 

■ 17 FORMAT ( IX, 1 OF 10. 2 ) 

18 FORMAT ( 1X,8I10,4X,5HT0TAL ) 


PRINT 680, LLL . , 

680 FORMAT ( 1H1 » 3 OHM AX I MLR- 1 VALUE OF RESOURCES FOR, 14, 10.-’ SCHEDULES/) 
° R I N T 12 , (1 , 1*1 , IN) 

DO 13 < = 1 ♦ M 

13 PRINT 14, ANAME ( K ) , BNAiME ( K ) , ( MAX ( J » K ) , J=1*IN> 

DO 7220 X = 2 0 » 2 7 

7220 PRINT 14, A NAME ( K ) , BMAME ( K ) , ( MAX ( J , < ) , J=1,IN) 

PRINT 16, (1,1=1970,1979) 

OR I NT 17, ( XMAX ( I ) , 1 = 1,10) 

PRINT 17, ( XMAX 1(1), 1=1,10) 

PRINT 18, (1,1=1980,1987) 

PRINT 17, (XMAX (I)., 1 = 11,18), ZMAX 
PRINT 17, ( XMAX 1(1), 1=11,18) 

DO 451 I =1 , IN 
DO 451 K=1 ,VV 

451 I ITOT ( I ,K)=IITOT( I . 

DO 452 1=1,1° 

452 XTCST ( I ) =XTCST ( I )*RL 

RETURN 

END 


SENTRY 
2 6 


34 

20 

? 0 0 

9 

525811 





2 010 

0 

4 

20 

25 

. 0 99 

72 

6 

24 

023244 8125 

2 

1 

438 

7 

438 






2020' • 

n 

4 

20 

37 

0 3 66 0 

222 

6 

222 

62438810598 

2 

1 

144 

8 

102 






7030 

u 

4 

20 

50 

025600 

510 

12 

492 

122269610598 

3 

1 

2 8 8 

7 

30 

8 162 





1040 

0 

4 

4 

1120 

4326 26 

30 

0 

30 

018048 6883 

2 

1 

1 Q 7 

8 

60 





1210 


B-16 



NORTHROP tr-808 

HUNTSVILLE 


2050 

0 

4 

4 

50 

0 

46 

726 

12 

138 

631828 • 

10 59.4 

3 

1 

27 6 

7 

102 

8 

102 







0060 

3 

■ 3 

1 

31 

96 

17 

. o’ 

0 

4 8 

0 

157 

8 

1 

8 

102 











0 0 71 

o 

1 

3 

0 

24 

3 

108 

6 

6 

0 

312 

1 1 

2 

7 

1.02 ■ 

3 

90 









0072 

o 

1 

3 

1 

6 

2 

114 

6 

12 

. 0 

214 

13 

3 

1 

60 

7 

30 

8 

60 







0073 

0 

1. 

8 

81 

15 30 

2 

108 

0 

1 

0 

321 

5 

2. 

1 

9 0 • 

7 . 

42 









0074 

n 

1 

8 

.150 

84 

2 

114 

0 

12 

. 0 

8 38 

21 

2 

i 

102 

7 

42 









0075 

0 

1 

O 

150 

0 

2 

108 

0 

12 

0 

161 

5 

O 

2 _ 

1 

3 0 

7 

144 









7 0 80 . 

0 

4 

20 

5 6 

0 

864 

1158 

24 

5 88 

1840424 

8 12 5 

3. . 

1 

23 4 

7 

42 

8 

60 





1200 


1091 

0 

4 

20 

2559: 

10692 

6 

2760 

120 

60 

616805 

505 

2 

7 

52 2 

2 

726 









1092 ■ 

o. 

.4 

20 . 

1.000 

0 

6 

2760 

114 

54 

01511510598 

1 

3 

18 











0100 

o 

i 

20 

'4 3 3 

504 

14 

78 

6 

18 

. 0 

912 

104 

2 

-i' 

2 

■ 39 6 

7 

18 









1110 

0 

' ' 4 

20 

1 7 8 C 

463849000 

1806 

4 8 

1656 

42 2 

510010598 

2 

7 

114 

Q 

1266 









7 12 0 

0 

4 

4 

17 

0 

5 3 

5772 

9.0 

30 

0 

7276 

6 8 6 8 

2 

7 

60 

8 

72 









0 1 3 1 

0 

0 

20 

290 

228 

66 

72 

6 

66 

6 

14 50 

319 

3 

4 

179 6 

5 

1 1 34 

9 

18 36 


1 





1132 

Q 

4 

20 

1155 

4320 

7 8 

78 

0 

66 

013800 

9 5 0.0 

5 

4 

45 0 

5 

672 

6 

160 2 

7 

90 

9 

2196 



0140 

1 

0 

7 

157 

150 

0 

138 

6 

138 

6 

587 

31 

■ 4 

5 

30 6 

7 

366 

8 

12 

9 

540 





0150, ■ 

0 

1 

20 

200014256 

0 

72 

12 

36 

0 

2453 

10 3 

' 3 

7 

707 

8 

702 

9 

702 







0160 

o 

) 1 

4 

149 

1542 

7 

390 

24 

288 

12 

1566 

10 3 

' 3 

1 

318 

7 

60 

8 

90 







0170 

0 

0 

4 

SO 

216 

1 

480 

6 

480 

6 

1 8 9 5 

49 

2 

7 

61? 

8 

132 









0 1 8 0 

0 . 

0 

4 

22 

84 

0 

282 

6 

162 

6 

670 

4 2 

. 2 

7 

144 

8 

132 









1 200 

0 

4 

10 

20 

4704 

1 

84 

6 

528 

1821916 

6 8 8 3 

2 , 

7 

318 

R 

1 14 







20 8 0 


1210 . 

0 

4 

20 

1000 

4320 

161 

156 

6 

6 

019607 

68 88 

2 

1 

174 

8 

30 







10 40 


0270 

1 

4 

1 

568 

6396 

3 

18 

■ 0 

18 

0 

74 2 0 

120 

2 

1 

48 0 

7 

346 









0 244 

o 

1 

4 

5 

24 

0 

48 

6 

156 

6 

2 05 0 

316 

3 

6 

42 

7 

144 

8 

192 



i 




0 245 

1 

0 

2 

0 

18 

. 0 

48 

0 

i 156 

0 

670 

60 

1 

o 

114 











0 246 

1 

0 

2 

1 

0 , 

0 

48 

0 

156 

6 

3 170 

131 

3 

1 

3 0 

7 

30 

8 

60 







0 247 

1 

0 

4 

,75 

0 

0 

48 

0 

156 

0 

330 

19 

3 

4 

4 2 

6 

60 

7 

42 







0250 

0 

1 

20 

43 

2 58 

0 

66 

6 

60 

0 

361 

37 


2 

174 

8 

. 30 










B-17 



NORTHROP 

HUNTSVILLE 


TR-808 







. 7 » 

O' 


;> 

a- 


o 

O' 


0 

cr 



cr- 

cr 







■; tv. 

er 


C* N 

O' 


O' 

O'- 


0 

er 



er 

O' 







CT 

er 


O' 



cr 

er- 


O' 

O' 



O' 

O' 








O' 


O’ 

■O' 


O' 

O' 


O' 

O' 



O'- 

er- 







O' 

O' 


<;r 

O' 


O' 

'-O' 


O' 

O' 



O' 

cr 







J> 

O' 


•O' 

O' 


cr 

O' 


O' 

O' 



O' 

•r 







O' 

O' 


. 7 ' 

Tv 


O' 



0 

O' 



O' 

O' 








O' 


O' 

fj\ 


CT' - 



O' 

O' 



cr 

O' 







■ 

*> 


G» 

> 


o 

■> 


•O' 

•O'. 



cr 








••"K 

•O' 


O- 

7 


O' 

O' 


O' 

•O’ 

er 


0 

O' 








O' 


•O' 

\r\ 


O' 

7 ' 


0 

O' 



cr 

er 







cr* 

O' 



o- 


O'* 

CT* 


O' 

O’ 

_j 


O'- 

O'. 







Q\ 

O' 


O' 

y\ 


O' 



O' 

O' 

_j 


O' 

O' 







O' 

O' 


0 T ' 



O' 

T' 


O' 

O' 

t — 4 


O'- 

cr 







'T*. 

O' 


O' 

O' 


O' 

7, 


O' 

O' 

V 


er 

O' 


C\J 


CO 



7 T, 

O' 


O' 

f > 


cr 

:> 


O' 

,;r 

V) 


O' 

:r 


4 * 


lf\ 



;r 

0- 


"*% 

. 7 ' 


O' 

>. 


O' 

T\ 



5 * 








r 

C 7 n 


■ 7 ' 

O' 


O' 



O' 

O' 

ao 


O' 

•O* 







O' 

O'- 


CT 

O' 


O' 

0 


0 

O*' 



o- 

c- 







7 

O' 



'tv. 


O' 

;> 


G* 

er 

-J 


er 

O' 




r*~ 



> 

O’ 


O' 

V ' 


-O’ 

;j-. 


O' 

O' 



O' 

O' 


vO 


CO 



0- 

O' 



0* 


O' 

Tv 


O' 

•T' 



7 - 

O' 


lH 


c\] 



O' 

O'- 


O' 

v 


O' 

^*- 



cr 

V 


C' 

'’v 




rH 



O' 

O- 


O'- 

;V 


O'- 

O' 


O'- 

er 

to 


o- 

cr- 







JN 

(?• 


O'- 

O'- 


O' 

O' 


O' 

0 



O' 

o* 




4 



5 -* 

O' 


« 7 * 

C' 


//* 

O' 


O' 

er 

r- 


O' 

o- 




cm 



O' 

O' 


O' 

O' 


O' 

O’. 


O' 

er 



0* 

cr- 







•~fN 

O' 



O' 


o* 

C'- 


O’ 

cr 

-J 


O' 

O’ 







• O' 

O' 


O' 

o- 


C:- 

~\ 


O'- 

a* 



O' 

C' 







On 

O' 


O' 

O' 


O' 

O' 


O' 

cr 

►— « 


cr 

er 


CTJ 


r\J 



O' 

O' 


O' 

o* 


(7 

0 


O' 


V 


cr 

O' 


O 


O' 



O' 

O' 


O' 

C 7 ' 


O' 

v> • 


O' 

O'- 

O) 


O' 

O'. 


i — 4 


i — 4 



O' 

O' 


CT' 

CT- 


O' 

O' 


O' 

O' 



cr 

O'- 







:> 

O' 


O' 

O' 


O' 

O' 


O' 

QN 

vO 


cr 

er 







O' 

O' 


O' 

O' 


O' 

O' 


O' 

O' 



O' 

cr 


vO 


c 



O' 

O' 


O' 

O' 


O' 

O' 


cr 

O' 



O' 

O' 




co 



O' 

O' 


O' 

O' 


O' 

7 - 


O' 

O' 

-J 


cr 

O' 







O' 

O' 


7 

O' 


C*' 

0 


O' 

O' 



cr 

cr 







O' 

O' 


O' 

O'- 


O' 

O' 


O' 

cr 

V 


cr 

cr- 







O' 

O' 


CT' 

er 


O' 

O' 


O' 

O’ 

y> 


O' 

cr 

' 

00 


CC 



O' 

O' 


O'- 

O' 


O' 

er*. 


o> 

0 



O' 

cr 


o 


r\j 



O' 

O' 


O' 

O' 


•O'. 

O' 


O' 

O' 

m 


O' 

cr 


i — 4 


CO 



O' 

O' 


•:> 

O'- 


O' 

CJ' 


O' 

er 



O' 

ir 







C?' 

O' 


;*J\ 

er ' 


O' 

O' 


O'- 

O' 

-j 


O' 

O' 







O' 

O' 


O' 

■J** 


O' 

•T\ 


O' 

O' 

-J 


O' 

O' 


o 


4 



O' 

0 


O'' 

O'* 


O' 

O' 


O' 

cr 

* — 1 


o- 

CT' 







.7 

O’ 


u' 

o 


0*’ 

O' 


O' 

er 

V 


O'- 

O' 







•O*' 

cr 


O' 

o 


o 

cr 


O' 

O' 

to 


er 

O' 







fT» 

0*' 



O' 


O' 

O' 


O' 

O' 



cr 

0. 







O' 

O' 


O' 

O’* 


O' 

O' 


O' 

cr 

4 - 


O' 

O' 


co 


r\j 



O' 

O' 


0 s 

O'- 


O' 

cr 


O'. 

•O' 



O' 

0. 


o 


co 



-O' 

o 


O' 

er ■ 


O' 

O’ 


O' 

O' 



cr 

cr 


4 - 


» — 4 



O' 

O' 


O' 

O' 


O' 

O' 


O' 

cr 

-J 


cr 

0 -» 







O'- 

CT' 


O' 



O' 

CT' 


O' 

O' 

*— « 


O'- 

O' 







O' 

O' 


O' 

O'- 


O' 

O' 


O' 

cr 

V 


er’ 

O' 


r— H 

rv' 

in 

cm 


C' 

O' 


CT 

O' 


O' 

O' 


O' 

O' 

to 


O' 

O' 


CO 

4 

4 

4 


O'* 

O' 


O' 

O' 


O' 

O' 


O'- 

er 



0 

O' 







cr* 

O' 


O' 

O' 


O' 

O' 


O' 

ON 

co 


cr 

O' 







CJ ■ 

.0' 


•O'. 

7 


O' 

O' 


O' 

O' 



O' 

O' 







O' 

o- 


O' 

(7 


O' 

O' 


O' 

er 

-J 


cr 

O' 


o 

CO 

V. 

cc 


O- 

Q' 


CT 

O' 


O' 

O'. 


O' 

O' 

-J 


O' 

O' 

0 

n-J 





C' 

O'- 


a* 

0 


cr- 

0- 


O' 

0 

*—* 


cr 

7 

0 






Cr- 

er 


O’ 

a- 


o 

c 


0 

O' 

V 


c- 

cr 

0 






Cr 

O' 


O' 

O' 


O' 

o- 


a- 

O'- 

to 


0 

0 

0 






■O' 

O'- 


O'- 

o 



O' 


a 

O' 



o- 

0 

0 

i — i 

4 

1 — 1 

(X' 


f Tv 

c 


'tv 

u • 

o'- 


O' 

0 


O' 

0 

nj 


O' 

cr 

0 


O 


4 


r‘V\ 

0 


O' 

er 


C' 

O' 


0 

cr 



cr 

0 

V_> 


rsi 




CT 

O' 


a- 

CT 


c- 

V* ' 


0 

G' 

-J 


c 

O' 







;> 

C’ 


O' 

O' 


O' 

O' 


O' 

V/ • 



c- 

rr- 

0 






O' 

O' 


O' 

u 


a 

O'- 


O' 

O’ 

►— « 


O'. 

cr 

v_- : 

f — • 

CO 

o 

f-H 


O' 

cr 


•O' 

O'- 


O' 

O' 


O' 

cr- 

V 


O'- 

O' 

0 






rr-. 

O' 


O' 

O' 


a* 

•O' 


er 

cr- 

to 


O'- 

cr- 

0 






O' 

O' 


>”T> 

C- 


o 

O' 


O' 

O'- 



cr 

cr 

0 





i/) 

O'- 

cr 


O'- 

O’ 


O' 

0 

CC 

e'- 

0 

H 


cr 

o- 

0 





V— * 

o 

cr- 

CO 

O' 

O'- 

V— 

O' 

c* 

CL 

er 

o- 


_J 

O'- 

0 

0 

o 

r\i 

o 

r\j 

h- 

O' 

cr 

QC 

O' 

O' 

O' 

O' 

O' 

X 

er 

O' 

-j 0 

er- 

cr 

0 



r- 


< 

C?> 

O' 

X 

O' 

O' 


O' 

O’ 


cr- 

cr- 

-J 

> 

O' 

O' 

0 

rv 


CM 


V’. 

c 

a 

1 

cr 

e’- 

f- — 

O'- 

a- 

7 

er 

0 



O' 

O' 

0 

O 


o 



O' 

O' 

>; 

CT 

er- 


er 

O' 

< 

O' 

0 

V 

to 

cr 

0 

0 





< 

O' 

C'- 

V 

0 - 

c 

cc 

o- 

O' 


O' 

0 

to 

to 

0- 

O' 

c 


B-18 




2 

7 6 00 . 

60 00 . 


900 • 


600 . 


61900 . 9790 0 . 

16310 . 29020 

S I R5YS 
7 I ° S Y S 
SI PSY5 



4 500. 

1 6 0 DO. 

2 7 0 00 . 

27 5 90 . 

18 500 . 

45000. 

45000. 

6 0000. 

5 2 500 . 

57500. 

2 7 50 0 . 

36000 . 

60 70. 

5620. 

6 94 0. 

16440. 

22420. 



4 500. 

15000. 

20500. 

14 500 . 



17110. 

21270. 

21170, 

13410. 




1500. 

3 000. 

300 0 . 




2 30. 

7 50. 

7 5 0 . 




2 30. 

1130. 

1 1 3 0 . 



380. 

15 00. 

1 500. 

1500. 



190. 

1130. 

1130. 

1130. 



190. 

1 130. 

1 1 30. 

1130. 

495 0. 

12990. 

19370. 

19370. 

14880. 

216,80 . 


2540. 

314 0. 

3 750. 

6 2 20. 

38 2 0 


290. 

440. 

• -22 50. 

9 2 50.. 

9 2 5 0 


900. 

1350. 

1660. 

1880. 

117 0. 

3000. 

4 500. 

4 500. 

15000. 

2 80(10. 

2 8 0 0 0 • 



210. 

2080. 

5110. 

4 no. 


650. 

6560. 

19080. 

29600. . 

19080 


290. 

2890. 

8400. 

18520. 

13900 

9000. 

19500. 

22500. 

27000. 

24000. 

6000. 

9000. 

22500. 

30000 . 

360 CO. 

3 6 0 0 0 . 

9000 . 

3750. 

4 500 . 

4500. 

9000. 

9000. 

6000 . 

450. 

900. 

1500. 

3 000 , 

2 700. 

• 750. 

900. 

1500. 

3000. 

4 5 00. 

3000. 

1500 . 

13 50. 

1950. 

4500. 

4 500. 

11500. 

7000. 



1500. 

. 8250. 

20500. 

10 7.50. 

600. 

2 2 50 . 

3000. 

7 500. 

600 0 . 

3000. 


5 5 70. 

8640. 

5 5 70. 

1 9 10 . 

190. 






29 0. 




1570. 

12 60. 

140. 

.150. 

1100. 

17 70. 

2630. ■ 

3 3 0 0 . 

3150 . 


2540. 

3140. 

3 7 50. 

6 2 20. 

38 20. 



1500. 

1500. 

9 0 00. 

900 0 . 

66600. 

32400. 

9200. 




20360. 

9560. 

2750. 





B-19 



TR-808 


NORTHROP 

HUNTSVILLE 


Appendix C 

FLOWTRAN LOGIC PLOTS OF REPRI 


c— l 



NORTHROP_ 

HUNTSVILLE “ 


TR-808 


CtHE. NSIONEC V A R 1 A E L E S 





STORAGES 

symbol 

STORAGES 

symbol 

S T ’Ti A G 

>r Mf ct 

STCfcA 

:a ta 

.36 t 2-» 

i rort. 

1 20 , 2 7 

ICTRT 

1213 ,5 

1 OUT 

i a» 

jDA IC 

■» (- 


30 

IC»\ 1C 

36 . 

NAME 

27 

BNAME 

2 7 

ME XP 

36 


3 

*X$T 

> 

16 

XCCST 

8 ,36 

IPERF 

36 

JCCN 

36 ,3 

*CST 

•16 

i ou t 

1 20 ,36 

NREiiC 

36,1 

IEXF 

36 

LA VO 

U'» 



READ (S ,1 ) l sEt-e ,1 case 


URI t£( 6,1 ) I SCN2 ,ICAse 



READ (5 ) (LA vGi ! ) ,1 r.l ( )i.i ) 


LRITE(6,2> (LAVG(I) ,1-1 ,10) 


MM-2 7 

l fla g-'.i 

LXXX=1 . 


TRANSFER 10 SUBROUTINE 
INPUT 


M TRANSFER to subrouiine ■ 
COST 

lll.iflag.icum 


TRANSFER to subroutine 
track 

1 , LLL 


UR 1 TE (6,4) 


REPEAT TO 14 
FOR 

LLL = 1 ,1+1 , . . . , 


REFEAT TO 6 


6 


xccsr (J) = 


RE PEA ! T 
FCR 

1=1 , 1+1 , • 


REFEAT 10 1 6 \ 
, FOR 

J :l , 1+1 , . . , ,N 


ICCCEd , J ) =0 
ZCOST=0 .0 
I AM41000 
I FM=1000 


REPEAT TO 8 
, FOR. 

1=1 ,1 + 1 , . . . ,IN 


REFEAT TO T 
, FOR 

J=1 ,1 + 1 , , MM 


I TOTL (I , J > =ET 


TRA NSFER TO SL'BR CU II NE 
ORDER 
N.IExr 


TRANSFER TO SUBROUTINE 
OUTPU 

LLL, Ei ,ICUM 


REPEAT to hi 

FCR 

K=1 ,1 + 1 , . . . ,N 


TRANSFER TO SUBROUTINE 
2 PACK 
IEXP(K) 


TRANSFER to subroutine' 
COST 

LLL.-l ,IEXF(K1 


transfer to subroutine 
OUTPU 

LLL.+ l , I EXP(K) 


TRANSFER TO SUBROUTINE 
ENCCCE 

IEXP(K) , I COCE , I OU I , I N 
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DIMENSIONED VARIABLES 


TR-808 


36 
3 6 

i 20 .30 


oY MB CL 

STORAGES 

SYME'X 

STGRA GES 

SY HBOC 

SI CRAGES 

SY ME* OL 

s 5 :f.a «. 

1 TOTL 

1 20 ,2 7 

1CTRT 

1 20 , 5 

I CUT 

] 20 

jDatE 


iCa TE 

36 

FC 

5 

AMD 

5 

Mt Xr 

3 0 

*' OS I 

6 ,36 

l f-er f 

36 

JCCN 

30,3 

XXCsi 

It? 

MJ.EQC 

36,11 








[ . j 


— si 1 Fla 0 u 


SUBRCViTl ME CCG 1 (1 StHC , I F LA G.NExrl 


rEAC (5 , 4 ) IyR 


Wtl TE(C' ,-l) IyR 


REi-EAl IO ' \ 

-A’ .)— I 



REAC (5 , 2 ) ( XCC 6 T (1 , J) ,1 =1 ,8 > 


REaC O ,z> (FFO (I ) ,1=1 ,5| 


V*ITE<6,5) (FFC(I) ,1=1 ,5) 


FtEAC (5 ,2) (AMD (I i- ,1=1 ,5) 


GfU 1E(6,5) (AMC(I) ,1=1 ,5) 

YR=IyR l__ J IYTP5 = 5*IYR 

iytp=u*iyr n nsyr= 7 *iyr 

Iy TPM2 = lYTI^2 


REi-tAT T 
FCR 

IFIRST = 1 , 1+1 


I Cut (I first) 


or. TO 
13 


rs K - ME X r“ { NE XPT / 1 ‘.*'00 


9 


CCNT1 NUE 


oo TO 
11 


I FIRST- I AM 


V ' / 


I AM- I FIRST 
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